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RK11 BAS1 


CZRKKF.P11 


21-FEB-7E 


894 




895 




896 




897 




898 




899 




900 




901 


001100 


902 




903 




904 




905 




906 


000011 


907 


000012 


908 


000015 


909 


000200 


910 


177776 


911 




912 


177774 


913 


177772 


914 


177570 


915 


177570 


916 




917 




918 


000000 


919 


000001 


920 


000002 


921 


000003 


922 


000004 


923 


000005 


924 


000006 


925 


000007 


926 


000006 


927 


000007 


928 




929 




930 


000000 


931 


000040 


932 


000100 


933 


000140 


934 


000200 


935 


000240 


935 


000300 


937 


000340 


938 




939 




940 


100000 


941 


040000 


942 


020000 


943 


01 0000 


944 


004000 


945 


002000 


946 


001000 


947 


000400 


948 


000200 


949 


000100 
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OPERATIONAL SWITCH SETTINGS 

•OUT IN THE ERROR MESSAGE. ADJACENT ERROR MESSAGES IF FOLLOWED 
;CAREFULLY COULD LEAD TO AN EASY PINPOINTING OF THE FAULT 



********* 



************ 



.SBTTL BASIC DEFINITIONS 

;*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *** 
STACK= 1100 

.EQUIV EMT, ERROR ;;BASIC DEFINITION OF ERROR CALL 

.EQUIV IOT, SCOPE ; ;BASIC DEFINITION OF SCOPE CALL 



;*MISCE 
HT = 
LF = 
CR = 
CRLF = 
PS = 

.EQUIV 
STKLMT* 
PIRQ = 
DSWR = 
DDISP= 



LLANEOUS DEFINITIONS 

CODE FOR HORIZONTAL TAB 

CODE FOR LINE FEED 

CODE FOR CARRIAGE RETURN 

CODE FOR CARRIAGE RETURN-LINE FEED 

PROCESSOR STATUS WORD 



12 

15 

200 

177776 

PS.PSW 

177774 

177772 

177570 

177570 



STACK LIMIT REGISTER 
PROGRAM INTERRUPT REQUEST REGISTER 
HARDWARE SWITCH REGISTER 
HARDWARE DISPLAY REGISTER 



;*GEN 
R0 = 

R1 = 
R2 = 
R3 = 
R4 = 
R5 = 
R6 = 
R7 = 
SP = 
PC = 



ERAL PURPOSE REGISTER DEFINITIONS 



%0 
%1 
%2 
%3 
%4 
%5 
%6 
%7 
%6 
%7 



GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
STACK POINTER 
PROGRAM COUNTER 



♦PRIORITY LEVEL DEFINITIONS 



PR0 = 

PR1 = 
PR2 = 
PR3 = 

PR4 = 
PR5 = 
PR6 = 
PR7 = 





40 

100 

140 

200 

240 

300 

340 



PRIORITY LEVEL 
PRIORITY LEVEL 1 
PRIORITY LEVEL 2 
PRIORITY LEVEL 3 
PRIORITY LEVEL 4 
PRIORITY LEVEL 5 
PRIORITY LEVEL 6 
PRIORITY LEVEL 7 



;*"SWITCH REGISTER" SWITCH DEFINITIONS 

SW15= 100000 

SW14= 40000 

SW13= 20000 

SW12= 10000 

SW11= 4000 

SW10 = 2000 

SW09= 1000 

SW08- 400 

SW07= 200 

SW06= 100 



MD-11-CZRKKF 


, RK11 BA5 
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950 


000040 


951 


000020 


952 


000010 


953 


000004 


954 


000002 


955 


000001 


955 




957 




958 




959 




960 




951 




962 




963 




964 




965 




966 




967 




968 


100000 


969 


040000 


970 


020000 


971 


010000 


972 


004000 


973 


002000 


974 


001000 


975 


000400 


976 


000200 


977 


000100 


978 


000040 


979 


000020 


980 


000010 


901 


000004 


982 


000002 


983 


000001 


984 




985 




986 




987 




988 




989 




990 




991 




992 




993 




994 




995 




996 


000004 


997 


000010 


998 


000014 


999 


000014 


1000 


000014 


1001 


000020 


1002 


000024 


1003 


000030 


1004 


000034 


1005 


000060 
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MACY11 30A(1052) 21-FEB-78 
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SEO 0018 



SW05 = 


40 


SW04 = 


20 


SW03 = 


10 


SW02 = 


4 


SWO 1 = 


2 


SW00 = 


1 


.EOUIV 


SW09.SW9 


.EOUIV 


SW08.SW8 


.EOUIV 


SW07.SW7 


.EOUIV 


SW06,SW6 


.EOUIV 


SW05.SW5 


.EQUIV 


SW04.SW4 


.EQUIV 


SW03.SW3 


.EQUIV 


SW02.SW2 


.EQUIV 


SW01 ,SW1 


.EQUIV 


SWOO,SWO 


;*DATA 


BIT DEFINITIONS (BI 


BIT15= 


100000 


BIT14= 


40000 


BIT13* 


20000 


BIT12= 


10000 


BIT11= 


4000 


BIT10= 


2000 


BIT09= 


1000 


BIT08= 


400 


BIT07= 


200 


BIT06= 


100 


BIT05= 


40 


3IT04= 


20 


BIT03= 


10 


BIT02= 


4 


BIT01= 


2 


BITOO= 


1 


.EQUIV 


BIT09.BIT9 


.EQUIV 


BIT08.BIT8 


.EOUIV 


BIT07.BIT7 


.EQUIV 


BIT06.BIT6 


.EQUIV 


BIT05.BIT5 


.EQUIV 


BIT04.BIT4 


.EQUIV 


BIT03.BIT3 


.EQUIV 


BIT02.BIT2 


.EQUIV 


BIT01 ,BIT1 


.EQUIV 


BITOO.BITO 


;*BASIC 


«CPU B TRAP VECTOR 


ERRVEC= 


4 ; ; 


RESVEC= 


10 ;; 


TBITVEC 


= 14 ; ; 


TRTVEC= 


14 ;; 


BPTVEC= 


14 ; ; 


IOTVEC= 


20 ; ; 


PWRVEC= 


24 ; ; 


EMTVEC= 


30 ;; 


TRAPVEC 


= 34 ;; 


TKVEC= 


60 ;; 



ADDRESSES 

TIME OUT AND OTHER ERRORS 

RESERVED AND ILLEGAL INSTRUCTIONS 

"T" BIT 

TRACE TRAP 

BREAKPOINT TRAP (BPT) 

INPUT/OUTPUT TRAP (IOT) **SCOPE** 

POWER FAIL 

EMULATOR TRAP (EMT) **ERROR** 

"TRAP" TRAP 

TTY KEYBOARD VECTOR 
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1006 




000064 


1007 




000240 


1008 






1009 






1010 




000000 


1011 






1012 






1013 






1014 




000174 


1015 


000174 


000000 


1016 


000178 


000000 


1017 






1018 


000200 


000137 


1019 






1020 






1021 






1022 






1023 




000204 


1024 




000046 


1025 


000046 


020740 


1026 




000052 


1027 


oooosa 


000000 


1028 




000204 
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BASIC DEFINITIONS 



SEQ 6019 



TPVEC® 64 

PIR0VECs240 

.SBTTL TRAP CATCHER 



;;TTY PRINTER VECTOR 

-PROGRAM INTERRUPT REQUEST VECTOR 



*ALL UNUSED LOCATIONS FROM 4 - 776 C0N7.MN A ".+2, HALT" 
^SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS m „ nne 
^LOCATION CONTAINS TO CATCH IMPROPERLY LOADED VECTORS 

nT*PREO'**WORD ; {SOFTWARE DISPLAY REGISTER 

SWREG- WORD ;; SOFTWARE SWITCH REGISTER 

.SBTTL ^TING^ESSCES)^ ^ ^^ ^^ ^ pRMRAH 

.SBTTL ACT11 HOOKS 

..#*»♦»**»*♦***»*•*•♦•**♦********•***************************•*** 
[HOOKS REQUIRED BY ACT11 

ssvpc^. '.save PC 

ggNDAD ?;1)SET L0C.46 TO ADDRESS OF SENDAD IN .SEOP 

.^52 
W0RD o S!S)SET LQC.52 TO ZERO 

.s.§SVPC ?? RESTORE PC 
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11 BASI 
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-FEB-78 


1029 






1030 






1031 






1032 






1033 






1034 






1035 




001100 


1036 


001100 




1037 


001100 


000000 


1038 


001102 


000 


1039 


001103 


000 


1040 


001104 


000000 


1041 


001106 


000000 


1042 


0011 10 


000000 


1043 


001112 


000000 


1044 


001114 


000 


1045 


0011 15 


001 


1046 


001 1 16 


000000 


1047 


001120 


000000 


1048 


001122 


000000 


1049 


001124 


000000 


1050 


001126 


000000 


1051 


001130 


000000 


1052 


001132 


000000 


1053 


001134 


000 


1054 


001135 


000 


1055 


001136 


000000 


1056 


001140 


177570 


1057 


001142 


177570 


1058 


001144 


177560 


1059 


001146 


177562 


1060 


001150 


177564 


1061 


001152 


177566 


1062 


001154 


000 


1063 


001155 


002 


1064 


001156 


012 


1065 


001157 


000 


1066 


001160 


000000 


1067 






1068 


001162 


000000 


1069 


001164 


000000 


1070 


001 166 


000000 


1071 


001170 


000000 


1072 


001172 


000000 


1073 


001174 


000000 


1074 


001176 


000000 


1075 


001200 


000000 


1076 


001202 


000000 


1077 


001204 


000000 


1078 


001206 


000000 


1079 


001210 


000000 


1080 


001212 


077 


1081 


001213 


015 


1082 


001214 


000012 


1083 






1084 


001216 


005015 
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SEQ 0020 



as*************************** ************** 



UhIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
*USED IN THE PROGRAM. 



051104 053111 



SCMTAG! 






SPASS: . 


WORD 





STSTNM: . 


BYTE 





SERFLG: . 


BYTE 





SICNT: . 


WORD 





SLPADR: . 


WORD 





SLPERRS . 


WORD 





SERTTL: . 


WORD 





SITEMB: . 


BYTE 





SERMAX: . 


BYTE 


1 


SERRPC: . 


WORD 





SGDADR: . 


WORD 





SBDADRS 


WORD 





SGDDAT: 


WORD 





SBDDATS 


WORD 







WORD 







WORD 





SAUT08: 


BYTE 





SINTAGS 


BYTE 







WORD 





swr; 


WORD 


DSWR 


DISPLAYI 


.WORD 


DDXSP 


STKSJ 


77560 




STKBS 


77562 




STPS: 


77564 




$TPB: 


77566 




snull: 


BYTE 





SFILLS5 


BYTE 


2 


SFILLC: 


.BYTE 


12 


STPFLG: 


.BYTE 





SREGAD: 


.WORD 





SREGO: 


.WORD 





SREG1 : 


.WORD 





SREG2*. 


.WORD 





SREG3: 


.WORD 





SREG4: 


.WORD 





SREG5: 


.WORD 





SREG6: 


.WORD 





SREG7: 


.WORD 





SREG10: 


.WORD 





SREG11 : 


.WORD 





STIMES: 







SESCAPE: 







SQUES: 


.ASCII 


/?/ 


SCRLF: 


.ASCII 


<15> 


$LF: 


.ASCIZ 


<12> 


• • * * n * * $ 


** **#******* * 


MSG1 : 


.ASCIZ 


<15>< 



## ####**«># 



; ; START OF COMMON TAGS 

;; CONTAINS PASS COUNT 

;;CONTAINS THE TEST NUMBER 

; {CONTAINS ERROR FLAG 

-CONTAINS SUBTEST ITERATION COUNT 

;;CONTAINS SCOPE LOOP ADDRESS 

;;CONTAINS SCOPE RETURN FOR ERRORS 

;;CONTAINS TOTAL ERRORS DETECTED 

;;CONTAINS ITEM CONTROL BYTE 

;;CONTAINS MAX. ERRORS PER TEST 

;;CONTAINS PC OF LAST ERROR INSTRUCTION 

: -.CONTAINS ADDRESS OF 'GOOD' DATA 

; ;CONTAINS ADDRESS OF 'BAD 1 DATA 

;; CONTAINS 'GOOD' DATA 

;;CONTAINS 'BAD' DATA 

; J RESERVED— -NOT TO BE USED 

{{AUTOMATIC MODE INDICATOR 
;; INTERRUPT MODE INDICATOR 

; {ADDRESS OF SWITCH REGISTER 

? {ADDRESS OF DISPLAY REGISTER 

;;TTY KBD STATUS 

;;TTY KBD BUFFER 

;;TTY PRINTER STATUS REG. ADDRESS 

j;TTY PRINTER BUFFER REG. ADDRESS 

; {CONTAINS NULL CHARACTER FOR FILLS 

; {CONTAINS # OF FILLER CHARACTERS REQUIRED 

{{INSERT FILL CHARS. AFTER A "LINE FEED 8 

;; "TERMINAL AVAILABLE" FLAG (BIT<07>*0«YES) 

{{CONTAINS THE ADDRESS FROM 

{{WHICH (SREGO) WAS OBTAINED 

; {CONTAINS (($REGAD)+0) 

; {CONTAINS ((SREGAD)+2) 

; {CONTAINS (( SREGAD) +4) 

; {CONTAINS ( ( $REGAD)+6) 

; {CONTAINS {( SREGAD )+1 ) 

{{CONTAINS (($REGAD)+12) 

{{CONTAINS (($REGAD)+14) 

{{CONTAINS (($REGAD)+16) 

; {CONTAINS (( SREGAD )+20 ) 

{{CONTAINS ((SREGAD)+22) 

;;MAX. NUMBER OF ITERATIONS 

{{ESCAPE ON ERROR ADDRESS 

; {QUESTION MARK 

{{CARRIAGE RETURN 

;;LINE FEED 

************ ***»«*«*****««*** 



12>/DRIVE PRESNT/ 
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1085 


001224 


020105 


051 120 


051505 


1086 


001232 


052116 


000 




1087 




001236 






1088 


001236 


005015 


047516 


042516 


1089 


001244 


000 






1090 










1091 


001245 


015 


041412 


0521 16 


1092 


001252 


051040 


054504 


042040 


1093 


001250 


0421 1 1 


023516 


020124 


1094 


001266 


042523 


000124 




1095 










1096 


001272 


005015 


051 104 


053111 


1097 


001300 


020105 


000 




1098 










1099 


001303 


015 


040412 


0461 14 


1 100 


001310 


042040 


053122 


123 


1101 










1102 


001315 


040 


051104 


050117 


1 103 


001322 


006504 


000012 




1 104 










1105 










1108 










1107 










1108 










1109 










1110 










1111 










1 112 


001326 


177400 






11 13 


001330 


177402 






1114 


001332 


177404 






1115 


001334 


177406 






1 1 16 


001336 


177410 






1117 


001340 


177412 






1118 


001342 


177416 






1119 










1 120 










1121 










1 122 










1 123 










1 124 










1 125 


001344 


000000 






1 126 


001346 


000000 






1127 


001350 


000000 






1128 


001352 


000000 






1 129 










1 130 










1 131 


001354 


000000 






1 132 










1 133 


001356 


000000 






1 134 


001360 


000000 






1 135 


001362 


000000 






1136 


001364 


000000 






1 137 


001366 


000000 






1 138 


001370 


000000 






1139 










1 140 











.EVEN 
MSG2: .ASCIZ <1 5X1 2>/N0NE/ 



.ASCIZ <15><12>/CNT RDY DIDN'T SET/ 



MSG4: .ASCIZ <1 5X1 2>/DRIVE / 
MSG5: .ASCII <15><12>/ALL DRVS/ 

MSG6: .ASCIZ / DR0PD/<15><12> 

.EVEN 

RK11 REGISTERS 

IF FOR ANY REASON THE REGISTER ADDRESSES ARE DIFFERENT FROM THESE 
(GIVEN BELOW), THE CONTENTS OF THE APPROPRIATE POINTERS SHOULD BE 
MODIFIED SO THAT THE CORRECT ADDRESS IS USED. 





.EVEN 


RKDS: 


177400 


RKER: 


177402 


3KCS: 


177404 


RKWC: 


177406 


RKBA: 


177410 


RKDA: 


177412 


RKDB: 


177416 



TAGS AND GENERAL DATA AREA 



SIMUL: 

FTITLE: 

DRIVAD: o 

DRVDON: 



INDX1 : 
INDX2: 
COUNT : 
COUNT1 : 
TIMER: 
EFLG1 : 



FLAG TO BE SET TO 1 WHEN ON SIMULATOR 

FLAG FOR PRINTING PROGRAM TITLE 

CONTAINS ADDRESS OF THE DRIVE UNDER TEST 

CONTAINS THE NUMBER OF DRIVES CHECKED. 

IT IS INCREMENTED EACH TIME THE TESTS FOR 

A DRIVE IS COMPLETED. 

CONTAINS THE POINTER TO THE DRIVE FLAG (DRIVEO 

-DRIVE7) OF THE DRIVE TO BE CHECKED NEXT. 

GENERAL INDEX FOR KEEPING COUNT 

GENERAL INDEX 
GENERAL COUNT REGISTER 

COUNT REGISTER USED FOR 'DRESET' SUBROUTINE 
TIMER REGISTER 

SET, TO INDICATE A PARTICULAR 
ERROR CONDITION 
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1 141 


001372 


000100 


1 142 


001374 


001000 


1143 


001376 


014500 


1144 


001400 


000200 


1145 






1 146 






1 147 






1 148 






1 149 


001402 


000220 


1 150 






1151 






1152 


001404 


000000 


1 153 


001406 


000000 


1 154 






1155 






1156 


001410 


000000 


1157 






1158 


001412 


000000 


1159 






1160 






1161 






1162 






1163 






1164 






1 165 






1 166 






1167 






1168 






1169 






1170 


001414 


000000 


1171 


001416 


000000 


1172 


001420 


000000 


1173 


001422 


000000 


1174 


001424 


000000 


1175 


001425 


000000 


1176 


001430 


000000 


1177 


001432 


000000 


1178 






1179 


001434 


000000 


1 180 


001436 


000000 


1181 


001440 


000000 



SEEKO: 


100 


SEEK1 : 


1000 


SEEK2: 


14500 


RKPRI: 


200 



RKVEC: 220 



FFLAG: 
ODDEVN: 



DDPCH: 
DRIVS: 



;C0NTAINS ADDRESS OF CYLINDER 2 

CONTAINS ADDRESS OF CYLINDER 20 

jCONTAINS ADDRESS OF CYLINDER 312 

^CONTAINS THE CPU LEVEL AT WHICH 

;RK11 NORMALLY INTERRUPTS. THIS WORD 

;SHOULD BE CHANGED IF RK11 IS DESINGATED 

;A BR LEVEL OTHER THAN 5. E.G. IF IT IS CHANGED 

;T0 6, THIS WORD SHOULD BE CHANGED TO 240. 

CONTAINS THE NORMAL VECTOR ADDRESS TO WHICH 

;RK11 INTERRUPTS. IF THIS IS NOT SO, CHANGE 

;THIS WORD TO CONTAIN MODIFIED VECTOR ADDRESS. 

USED TO DETERMINE WHICH OF RK-05F DRIVES ACTIVE 

IF EVEN DRIVE 

-1 IF ODD DRIVE 

IF PROGRAM LOADED FROM RK05, CONTAINS 

ADDRESS OF DRIVE WITH RKDP PACK 

CONTAINS THE NUMBER OF DRIVES PRESENT 



;THE FLAGS BELOW (BIT 0) ARE SET TO 1 TO INDICATE THAT A PARTICULAR DRIVE 

;IS PRESENT AND IS TO BE TESTED. BIT 12, IF SET, INDICATES THAT THE DRIVE 

;WAS DROPPED AFTER MAXIMUM ALLOWABLE NUMBER OF ERRORS OCCURED ON THAT 

;DRIVE (SW 6 SET). 

;IF MORE THAN 5 ERRORS OCCUR IN THE HARDWARE POLLING TEST (LAST) 

;THEN ALL DRIVES ARE DROPPED. BUT BIT 12 IS NOT SET. 



DRIVO 
DRIV1 
DRIV2 
DRIVS 
DRIV4 
DRIV5 
DRIV6 
DRIV7 



;FLAG SET TO 1 


WHEN DRIVE PRESENT 


;FOR DRIVE 1 




IFOR DRIVE 2 




;FOR DRIVE 3 




;FOR DRIVE 4 




;FOR DRIVE 5 




;FOR DRIVE 6 




;F0R DRIVE 7 





T56FLGS 
PHYDRV: 
SIZYET; 
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1182 

1183 

1184 

1185 

1186 

1 187 

1 188 

1 189 

1190 

1191 

1192 

1 193 

1194 

1195 

1196 001442 

1197 

1198 

1 199 

1200 

1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 
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ERROR POINTER TABLE 

.SBTTL ERROR POINTER TABLE 

*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

•LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

*N0TE1: IF SITEMB IS THE ONLY PERTINENT DATA IS (SERRPC). 

®N0TE2: EACH ITEM IN THE TABLE CONTAINS 



SEO 0023 



POINTERS EXPLAINED AS FOLLOWS: 



EM 



DT 
DF 



POINTS TO THE ERROR MESSAGE 
POINTS TO THE DATA HEADER 
POINTS TO THE DATA 
POINTS TO THE DATA FORMAT 



SERRTB: 



THE ERROR ITEMS TABLE CONSISTS OF ALL THE POSSIBLE ERROR MESSAGES 

USED IN THIS PROGRAM. AN ERROR CALL IN THE PROGRAM CORRESPONDS TO 

THE ITEM NUMBER IN THE ERROR TABLE. THUS 'ERROR 1' IN THE 

PROGRAM CORRESPONDS TO 'ITEM 1' IN THE ERROR TABLE. 

'EM###' IS THE POINTER TO THE ERROR MESSAGE WHICH WILL BE TYPED 

OUT IN CASE THAT ERROR WERE TO OCCUR. THUS FOR 'ERROR 1' THE ERROR 

MESSAGE TYPE OUT WILL BE 'TIME OUT ON RK11 REG'. 

■DH##fr' IS THE POINTER TO THE HEADER BLOCK WHICH WILL BE TYPED OUT 

IMMEDIATELY AFTER THE ERROR MESSAGE. 

'DT###' SERVES AS A POINTER TO THE MEMORY LOCATIONS WHERE 

THE INFORMATION RELEVANT TO THE ERROR TYPE OUTS (LIKE PC, CONTENTS 

OF RKCS ETC.) WILL BE PICKED UP FROM. 

THE LAST ROW CONTAINING '0' SERVES AS A TERMINATOR. 

EXAMPLE: 

IF ON RUNNING THIS PROGRAM A TIMEOUT WERE TO OCCUR ON ADDRESSING RKDS 

(177400), BECAUSE OF SOME FAULT, THE FOLOWING TYPEOUT WOULD 

OCCUR ON THE TELETYPE. 

TIME OUT ON RK11 REG 

PC REG 
titi#8Uti 177400 



NOTE THAT HttttHM WOULD BE THE ACTUAL PC WHERE 'ERROR 



IS LOCATED. 



THE ERROR HANDLER IS LOCATED AT 'SERROR'. THE ERROR CALL IS AN 'EMT' 
INSTRUCTION WITH ITS LOWER BYTE ENCODED TO PROVIDE INDEXING TO THE 
ITEMS IN THE ERROR TABLE. 
THUS 'ERROR 1 ' IS 104001 

'ERROR 103' IS 104126 ETC. 



;ERR0R ITEMS TABLE 
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SEQ 0024 



1238 






1239 






1240 


001442 


025402 


1241 


001444 


032327 


1242 


001446 


031742 


1243 


001450 


000000 


1244 






1245 






1246 






1247 


001452 


027253 


1248 


001454 


032113 


1249 


001456 


031762 


1250 


001460 


000000 


1251 






1252 






1253 






1254 


001462 


025427 


1255 


001464 


032047 


1256 


001466 


031732 


1257 


001470 


000000 


1258 






1259 






1260 






1261 


001472 


025456 


1262 


001474 


032213 


1263 


001476 


031724 


1264 


001500 


000000 


1265 






1266 






1267 






1268 


001502 


025470 


1269 


001504 


032155 


1270 


001506 


031762 


1271 


001510 


000000 


1272 






1273 






1274 






1275 


001512 


025500 


1276 


001514 


032155 


1277 


001516 


031762 


1278 


001520 


000000 


1279 






1280 






1281 






1282 


001522 


025510 


1283 


001524 


032213 


1284 


001526 


031724 


1285 


001530 


000000 


1286 






1287 






1288 






1289 


001532 


025531 


1290 


001534 


032327 


1291 


001536 


031742 


1292 


001540 


000000 


1293 







1 

EM12 
DH44 
DT20 




EM70 
DH14 
DT26 




EM 16 
DH4 
DT2 




EM21 
DH34 
DT1 




EM30 
DH30 
DT26 




EM31 
DH30 

DT26 



j 'SIN' IS SET 

;PC RKCS RKER RKDS RKDA 

;$ERRPC SREGO SREG1 SREG2 SREG3 



5CNTRL RDY DIDN'T SET ON READ/FMT FROM DISK ADDRESS 
;PC RKCS RKER RKWC 
;$ERRPC SREGO $REG1 SRE62 



;RKDA WRONG AFTER SSE 
;PC EXPCT RECVD 
;$ERRPC SREGO $REG1 



RKDS ERROR 
PC RKDS 
SERRPC SREGO 



•DPI' BIT SET, 
PC RKCS 
SERRPC SREGO 



CHECK DRIVE POWER 
RKER RKDS 
SREG1 SREG2 



J'DRU' BIT SET, CHECK DRIVE 
;PC RKCS RKER RKDS 
5SERRPC SREGO SREG1 SREG2 



EM32 
DH34 
DT1 



'RK05' BIT NOT 
PC RKDS 
SERRPC SREGO 


SET 






10 










EM33 
DH44 
DT20 



'DRY' NOT SET 
PC RKCS 
SERRPC SREGO 


RKER 
SREG1 


RKDS 
SREG2 


RKDA 
SREG3 
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1294 






1295 






1296 


001542 


025551 


1297 


001544 


032213 


1298 


001546 


031724 


1299 


001550 


000000 


1300 






1301 






1302 






1303 


001552 


025570 


1304 


001554 


032231 


1305 


001556 


031724 


1306 


001560 


000000 


1307 






1308 






1309 






1310 


001562 


025623 


131 1 


001564 


032251 


1312 


001566 


031732 


1313 


001570 


000000 


1314 






1315 






1316 






1317 


001572 


025653 


1318 


001574 


032047 


1319 


001576 


031732 


1320 


001600 


000000 


1321 






1322 






1323 






1324 


001602 


025707 


1325 


001604 


032301 


1326 


001606 


031732 


1327 


001610 


000000 


1328 






1329 






1330 






1331 


001512 


025747 


1332 


001614 


032213 


1333 


001616 


031724 


1334 


001620 


000000 


1335 






1336 






1337 






1338 


001622 


025415 


1339 


001624 


032047 


1340 


001626 


031732 


1341 


001630 


000000 


1342 






1343 






1344 






1345 


001632 


026004 


1346 


001634 


032150 


1347 


001636 


031756 


1348 


001640 


000000 


1349 







11 

EM34 
DH34 
DT1 


12 

EM35 
DH35 
DT1 



13 

EM36 
DH36 
DT2 




EM37 

DH4 

DT2 



15 

EM40 
DH40 
DT2 



EM41 
DH34 
DT1 



'SDK' DID NOT SET 
PC RKDS 
SERRPC SREGO 



;'SEC COUNTR' DIDN'T COUNT TO 
;PC SEC-CNTR 
;$ERRPC SREGO 



;'SEC COUNTR' DIDN'T INCREMENT 
;PC PRSNT-COUNT NXT-COUNT 
;$£RRPC SREGO SREG1 



; 'SECTOR COUNTER' INCREMENTED WRONG 
;PC EXPCTD RECVD 
;$ERRPC SREGO SREG1 



;DIDN'T GET SC=SA FOR THIS SECTOR 
;PC SECTOR RKDS 
;$ERRPC SREGO SREG1 



ERROR-' R/W/S FijY' SHOULD BE SET 
PC RKDS 
SERRPC SREGO 



EM13 
DH4 
DT2 



;RKBA ERROR 

;PC EXPCT RECVD 

;SERRPC SREGO SREG1 


20 




EM43 
DH21 
DT21 



UNEXPECTED RK1 1 INTERRUPT 

;PC 

;$ERRPC 
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SEQ 0026 



1350 






1351 






1352 


001642 


026036 


1353 


001644 


032327 


1354 


001646 


031742 


1355 


001650 


000000 


1356 






1357 






1358 






1359 


001652 


026112 


1360 


001654 


032327 


1361 


001656 


031742 


1362 


001660 


000000 


1383 






1364 






1365 






1366 


001662 


026160 


1367 


001664 


032155 


1368 


001666 


031762 


1369 


001670 


000000 


1370 






1371 






1372 






1373 


001672 


026216 


1374 


001674 


032047 


1375 


001676 


031732 


1376 


001700 


000000 


1377 






1378 






1379 






1380 


001702 


026260 


1381 


001704 


032155 


1382 


001706 


031762 


1383 


001710 


000000 


1384 






1385 






1386 






1387 


001712 


026307 


1388 


001714 


032327 


1389 


001716 


031742 


1390 


001720 


000000 


1391 






1392 






1393 






1394 


001722 


026362 


1395 


001724 


032047 


1396 


001726 


031732 


1397 


001730 


000000 


1398 






1399 






1400 






1401 


001732 


026407 


1402 


001734 


032155 


1403 


001736 


031762 


1404 


001740 


000000 


1405 







21 

EM44 
DH44 
DT20 




EM45 
DH44 
DT20 


23 

EM46 
DH30 
DT26 



24 

EM47 
DH4 
DT2 




EM50 
DH30 
DT26 



EM51 
DH44 
DT20 



27 

EM52 
DH4 
DT2 


30 

EM53 
DH30 
DT26 




'CNTRL RDY ! DIDN'T SET AFTER SEEK OR DRIVE RESET 
PC RKCS RKER RKDS RKDA 
SERRPC SREGO $REG1 SREG2 SREG3. 



; 'ERR* OR 'HE' 
;PC RKCS 
;$ERRPC SREGO 



SET ON SEEK OR DRIVE RESET 
RKER RKDS RKDA 
SREG1 SREG2 SRE63 



RKER BIT, ON SEEK OR DRIVE RESET 
PC RKCS RKER RKDS 
SERRPC SREGO SREG1 SREG2 



;RKCS CHANGED AFTER FUNCTION WAS DONE 
;PC EXPCT RECVD 
;$ERRPC SREGO SREG1 



; 'R/W/S RDY« DID NOT CLEAR 
;PC RKCS RKER RKDS 
;$ERRPC SREGO SREG1 SREG2 



;' R/W/S RDY' DIDN'T SET AFTER SEEK OR DRIVE RESET 
;PC RKCS RKER RKDS RKDA 
;$ERRPC SREGO SREG1 SREG2 SREG3 



;RKDA CHANGED AFTER SEEK 
;PC EXPCTD REGVD 
;SERRPC SREGO SREG1 



;'CNTRL RDY' DIDN'T CLEAR AS GO WAS SET 
;PC RKCS RKER RKDS 
;$ERRPC SREGO SREG1 SREG2 
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C2RKKF.P11 2 


-FEB-78 


1406 






1407 






1408 


001742 


026452 


1409 






1410 


001744 


032374 


141 1 






1412 


001746 


031774 


1413 






1414 


001750 


000000 


1415 






1416 






1417 






1418 


001752 


026544 


1419 






' 1420 


0017S4 


032374 


1421 






1422 


001756 


031774 


1423 






1424 


001760 


000000 


1425 






1426 






1427 






1428 


001762 


026623 


1429 


001764 


032503 


1430 






1431 


001766 


031774 


1432 






1433 


001770 


000000 


1434 






1435 






1436 






1437 


001772 


026662 


1438 


001774 


032075 


1439 


001776 


031724 


1440 


002000 


000000 


1441 






1442 






1443 






1444 


002002 


026720 


1445 


002004 


032047 


1446 


002006 


031732 


1447 


002010 


000000 


1448 






1449 






1450 






1451 


002012 


026757 


1452 


002014 


032155 


1453 


002016 


031762 


1454 


002020 


000000 


1455 






1456 






1457 






1458 


002022 


027014 


1459 


002024 


032047 


1460 


002026 


031732 


1461 


002030 


000000 
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;ITEM 



31 

EM54 

DH54 

DT54 



32 

EM55 

DH54 

DT54 



33 

EM56 
DH56 

DT54 



34 

EM57 
DH5 
DT1 


35 

EM60 
DH4 
DT2 


36 

EM51 
DH30 
DT26 



37 

EM62 
DH4 
DT2 




;'CNTRL RDY ' DIDN'T SET ON DOING WRITE/FMT STARTING 

;FROM <D5K-ADRES> 

;PC RKCS RKER RKDS RKDA 

;DRV# CYL <DSK~ADRES> SUR SECTR 

;$ERRPC SREGO SREG1 SREG2 SREG3 

;$REG4 SREG5 $RE66 $REG> 



;*HE' OR 'ERR' ON WRITE/FMT STARTING FROM 

;<DSK~ADRES> 

;PC RKCS RKER RKDS RKDA 

;DRV# CYL <DSK-ADRES> SUR SECTR 

;$ERRPC SREGO SREG1 SREG2 SREG3 

;$REG4 SREG5 SREG6 SREG7 



?RKDA INCREMENTED WRONG ON WRITE 'OR WRITE FORMAT 



;PC EXPCT! DRV# CYL 

;RECVD: DRV# CYL SUR 

5SERRPC SREGO TREG1 

;SREG4 SREGS $REG6 SREG7 

\ 



SUR SECTR 

SECTR 

$REG2 $REG3 



;RKWC DIDN'T OVERFLOW ON WRITE OR WRITE FORMAT 
;PC RECVD 
;$ERRPC SREGO 



RKBA INCREMENTED WRONG ON WRITE OR WRITE FORMAT 
PC EXPCT RECVD 
SERRPC SREGO $REG1 



;RKER SET. ON WRITE/READ/FORMAT 
;PC RKCS RKER RKDS 
;$ERRPC SREGO SREG1 SREG2 



;RKDB ERROR 
;PC EXPCT 
;$ERRPC SREGO 



RECVD 
SREG1 
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SEO 0028 



1462 






1463 






1464 






1465 


002032 


027026 


1466 


002034 


032503 


1467 






1468 


002036 


031774 


1469 






1470 


002040 


000000 


1471 






1472 






1473 






1474 


002042 


027072 


1475 


002044 


032610 


1476 


002046 


031732 


1477 


002050 


000000 


1478 






1479 






1480 






1481 


002052 


027135 


1482 


002054 


032047 


1483 


002056 


031732 


1484 


002060 


000000 


1485 






1486 






1487 






1488 


002062 


027201 


1489 


002064 


032634 


1490 


002066 


031762 


1491 


002070 


000000 


1492 






1493 






1494 






1495 


002072 


027240 


1496 


002074 


032672 


1497 


002076 


031762 


1498 


002100 


000000 


1499 






1500 






1501 






1502 


002102 


027253 


1503 






1504 


002104 


032374 


1505 






1506 


002106 


031774 


1507 






1508 


002110 


000000 


1509 






1510 






1511 






1512 


002112 


027344 


1513 






1514 


002114 


032374 


1515 






1516 


002116 


031774 


1517 







EM63 
DH56 

DT54 



41 

EM64 
DH64 
DT2 


42 

EM65 
DH4 
DT2 


43 

EM66 
DH66 
DT26 


44 

EM67 
DH67 
DT26 


45 

EM70 

DH54 

DT54 



46 

EM71 

DH54 

DT54 



?RKDA INCREMENTED WRONG ON READ OR READ FORMAT 
;PC EXPCT: DRV# CYL SUR SECTR 
; RECVD: DRV# CYL -UR SECTR 
;$ERRPC SREGO SREG1 SREG2 SREG3 
;SREG4 SREG5 $REG6 $REG7 



;RKWC DID NOT OVERFLOW ON READ OR READ FORMAT 
*, PC RKWC RKDA 
;$ERRPC SREGO SREG1 



;RKBA INCREMENTED WRONG ON READ OR READ FORMAT 
',PC EXPCT RECVD 

;$ERRPC SREGO $REG1 



; INCORRECT HEADER FROM 'SECTOR* 
IPC SECTR EXPCT RECVD 
;$ERRPC SREGO $REG1 SREG2. 



DATA ERROR 
PC EXPCT 
$ERRPC SREGO 



RECVD 
SREG1 



DSK-ADRES 
SREG2 



J'CNTRL RDY' DIDN'T SET ON DOING READ/FMT STARTING 

; FROM %DSK-ADRES> 

;PC RKCS RKER RKDS RKDA 

;DRV# CYL <DSK-ADRES> SUR SECTR 

;$ERRPC SREGO $REG1 SREG2 SREG3 

;SREG4 SREG5 $REG6 SREG7 



;'HE' OR 'ERR' BIT SET ON READ/FMT STARTING 

; FROM <DSK~ADRES> 

;PC RKCS RKER RKDS RKDA 

;DRV0 CYL <DSK-ADRES> SUR SECTR 

;$ERRPC SREGO $REG1 $REG2 $REG3 

;SREG4 SREG5 SREG6 SREG7 



MD-11-C2RKKF, RK1 1 BASIC LOGIC TEST 2 
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1518 


002120 


000000 


1519 






1520 






1521 






1522 


002122 


027422 


1523 


002124 


032047 


1524 


002126 


031732 


1525 


002130 


000000 


1526 






1527 






1528 






1529 


002132 


027464 


1530 


002134 


032213 


1531 


002136 


031732 


1532 


002140 


000000 


1533 






1534 






1535 






1536 


002142 


027536 


1537 


002144 


032732 


1538 


002146 


031724 


1539 


002150 


000000 


1540 






1541 






1542 






1543 


002152 


027606 


1544 


002154 


032732 


1545 


002156 


031724 


1546 


002160 


000000 


1547 






1548 






1549 


* 




1550 


002162 


027656 


1551 


002164 


033106 


1552 


002166 


031724 


1553 


002170 


000000 


1554 






1555 






1556 






1557 


0021 72 


027721 


1558 


002174 


032047 


1559 


002176 


031732 


1560 


002200 


000000 


1561 






1562 






1563 






1564 


002202 


027756 


1565 


002204 


032753 


1566 


002206 


031762 


1567 


002210 


000000 


1568 






1569 






1570 






1571 


002212 


030001 


1572 


002214 


032327 


1573 


002216 


031742 
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:ITEM 47 



SEQ 0029 



EM72 

DH4 

DT2 



50 

EM73 
DH34 
DT2 


51 

EM74 
DH74 
DT1 




EM75 
DH74 
DT1 



53 

EM76 
DH117 
DT1 


54 

EM77 

DH4 
DT2 



55 

EM100 
DH100 

DT26 




ENI101 
DH44 
DT20 



WRONG DRIVE ID IN RKDS AFTER SEEK 
PC EXPCT RECVD 
SERRPC SREGO SREG1 



;HARDWARE POLL, DRIVE ID BITS( 13-15) SHOULD BE CLE/..? 
;PC RKDS 
;$ERRPC SREGO 



;HARDWARE POLL, 
;PC DRIVE / 
;$ERRPC SREGO 



INTERRUPTING DRIVE # NOT PRESEN T 



; 'DRIVE #' DID NOT INTERRUPT DURING HARDWARE POLL 
;PC DRIVE # 
;$ERRPC SREGO 



SCP DID NOT SET AFTER WAS DONE 
PC RKCS 
SERRPC SREGO 



;RKDA CHANGED AFTER 'DRIVE RESET' 
;PC EXPCT RECVD 
;SERRPC SREGO SREG1 



;DATA ERROR AT WORD# 

;PC WORD# EXPCT RECVD 

;SERRPC SREGO SREG1 SREG2 



CNTRL RDY DID NOT SET AFTER READ CHECK 
PC RKCS RKER RKDS RKDA 
SERRPC SREGO SREG1 SREG2 SREG3 
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1574 


002220 


000000 


1575 






1576 






1577 






1578 


002222 


030043 


1579 


002224 


032155 


1580 


002226 


031762 


1581 


002230 


000000 


1582 






1583 






1534 






1585 


002232 


030067 


1586 


002234 


033010 


1587 


002236 


03^724 


1588 


002240 


000000 


1589 






1590 






1591 






1592 


002242 


030105 


1593 


002244 


033024 


1594 


002246 


031732 


1595 


002250 


000000 


1596 






1597 






1598 






1599 


002252 


030156 


1600 


002254 


032047 


1601 


002256 


031732 


1602 


002260 


000000 


1603 






1604 






1605 






1606 


002262 


030214 


1607 


002264 


032047 


1608 


002266 


031732 


1609 


002270 


000000 


1610 






1611 






1612 






1613 


002272 


030245 


1614 


C02274 


033050 


1615 


002276 


031762 


1616 


002300 


000000 


1617 






1618 






1619 






1620 


002302 


030306 


1621 


002304 


032327 


1622 


002306 


031742 


1623 


002310 


000000 


1624 






1625 






1626 






1627 


002312 


030351 


1628 


002314 


032155 


1629 


002316 


031762 



57 

EM102 
DH30 
DT26 


60 

EM103 
DH103 
DT1 




EM104 
DH104 

DT2 


62 

EM105 
DH4 
DT2 


63 

EM106 
DH4 
DT2 


64 

EM107 
DH107 
DT26 



65 

EM110 
DH44 
DT20 




EM111 
DH30 
DT26 



; 'ERR' OF 'HE' 
;PC RKCS 
;$ERRPC SREGO 



SET ON READ CHECK 
RKER RKDS 
SREG1 SREG2 



'CSE' ON READ CHECK 
PC RKER 
SERRPC SREGO 



RKWC DID NOT OVERFLOW ON READ CHECK OR WRITE CHECK 
PC RECVD RKCS 
SERRPC SREGO SREG1 



;RKDA INCREMENTED WRONG HN READ CHECK 
;PC EXPCT RECVD 
;SERRPC SREGO SREG1 



;RKBA CHANGED AFTER READ CHECK 
;PC EXPCT RECVD 
;$ERRPC SREGO $REG1 



;MEMORY WORD CHANGED AFTER READ CHECK 
;PC LOC EXPCT RECVD 
;SERRPC SREGO SREG1 SREG2 



JCNTRL RDY DID NOT SET AFTER WRITE CHECK 
;PC RKCS RKER RKDS RKDA 
;$ERRPC SREGO $REG1 SREG2 SREG3 



HE OR ERR BIT SET AFTER DOING WRITE CHECK 
PC RKCS RKER RKDS 
SERRPC SREGO SREG1 SREG2 
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SEQ 3031 



1630 


002320 


000000 


1S31 






1632 






1633 






1634 


002322 


030376 


1635 


002324 


032155 


1636 


002326 


031762 


1637 


002330 


000000 


1638 






1639 






164 






1641 


002332 


030417 


1642 


002334 


032047 


1643 


002336 


031732 


1644 


002340 


000000 


1645 






1646 






1647 






1648 


002342 


03045© 


1649 


002344 


032047 


1650 


002346 


031732 


1651 


002350 


OQOOOO 


16S2 






1653 






1654 






1655 


002352 


030515 


1656 


002354 


032047 


1657 


002356 


031732 


1658 


002360 


000000 


1659 






1660 






1661 






1662 


002362 


030551 


1663 


002364 


032753 


1664 


002365 


031762 


1665 


002370 


000000 


1666 






1667 






1668 






1669 


002372 


030624 


1670 


002374 


033106 


1671 


002376 


031724 


1672 


002400 


000000 


1673 






1674 






1675 






1676 


002402 


030671 


1677 


002404 


033106 


1678 


002406 


031724 


1679 


002410 


000000 


1680 






1681 






1682 






1683 


002412 


030744 


1684 


002414 


033106 


1685 


002416 


031724 





EM112 

DH30 
DT26 



ITEM 


70 




ENI113 

DH4 

DT2 

■ 


item 


71 




EM114 
0H4 
DT2 



ITEM 


72 




EM115 
DH4 
DT2 



ITEM 


73 




EM116 

DH100 
DT26 



74 

EM1 17 
DH117 

DT1 




;WRITE CHECK ERROR 

;PC RKCS RKER kKDS 

jSERRPC SREGO SREG1 SREG2 



RKDA INCREMENTED WRONG ON WRITE CHECK 
PC EXPCT RECVD 
SERRPC SREGO SREG1 



?RK1A INCREMENTED WRONG ON WRITE CHECK 
IPC EXPCT RECVD 
lliRRPC SREGO $REG1 



;RKBA INCREMENTED WITH ZBA SET 
;PC EXPCT RECVD 
?$ERRPC SREGO SREG1 



;WRQNG MEMORY LOCATION CHANGED WITH XBA SET 
;PC WORD0 EXPCT RECVD 
;$ERRPC SREGO $REG1 SREG2 



;RK11 DID NOT INTERRUPT WHEN IDE WAS SET 
;PC RKCS 
;$ERRPC SREGO 



75 

EM120 ;RK11 DID NOT INTERRUPT AFTER SEEK WAS INITIATED 

DH117 ;PC RKCS 

DT1 ;$ERRPC SREGO 




76 

EM121 
DH117 

DT1 



;SCP SET BEFORE SEEK COMPLETED 
;PC RKCS 
;$ERRPC SREGO 
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SEO 0032 



1686 


002420 


000000 


1687 






1688 






1689 






1690 


002422 


031002 


1691 


002424 


032155 


1692 


002426 


031762 


1693 


002430 


000000 


1694 






1695 






1696 






1697 


002432 


031051 


1698 


002434 


033106 


1699 


002436 


031724 


1700 


002440 


000000 


1701 






1702 






1703 






1704 


002442 


031110 


1705 


002444 


033106 


1706 


002446 


031724 


1707 


002450 


000000 


1708 






1709 






1710 






1711 


002452 


031152 


1712 


002454 


032020 


1713 


002456 


031732 


1714 


002460 


000000 


1715 






1716 






1717 






1718 


002462 


031211 


1719 


002464 


033122 


1720 


002466 


031732 


1721 


002470 


000000 


1722 






1723 






1724 






1725 


002472 


031252 


1726 


002474 


033122 


1727 


002478 


031732 


1728 


002500 


000000 


1729 






1730 






1731 






1732 


002502 


031314 


1733 


002504 


033150 


1734 


002506 


031762 


1735 


002510 


000000 


1736 






1737 






1738 






1739 






1740 


002512 


031351 


1741 


002514 


033207 



77 

EM122 

DH30 

DT26 



100 

EM123 
DH117 
DT1 


101 

EM 124 
DH117 
DT1 


102 

EM125 
DH2 

DT2 



;ITEM 103 

EM126 
DH126 
DT2 


;ITEM 104 

EM127 
DH126 
DT2 


;ITEM 105 

EM130 
DH130 
DT26 




EM131 
DH131 



RK11 DID NOT INTERRUPT AFTER SEEK COMPLETED 
PC RKCS RKER RKDS 
SERRPC SREGO SREG1 SREG2 



CNTRL RESET DID NOT CLEAR 
PC RKCS 
SERRPC SREGO 



RK11 DID NOT INTERRUPT AFTER READ WAS DONE 
PC RKCS 

SERRPC SREGO 



CNTRL RESET DID NOT CLEAR REGISTER 
PC REGADD RECVD 
SERRPC SREGO SREG1 



RK11 DID NOT INTERRUPT AT CPU LEVEL 
PC LEVEL RKCS 
SERRPC SREGO $REG1 



;RK11 INTERRUPTED AT WRONG CPU LEVEL 
;PC LEVEL RKCS 
5SERRPC SREGO $REG1 



'ERR BIT' DID NOT SET IN RKER 
PC RKCS RKER ERR BIT 
SERRPC SREGO SREG1 SREG2 



;HE OR ERR DID NOT SET 
;PC RKCS RKER 
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SEO 0033 



1742 


002516 


031732 


1743 


002520 


000000 


1744 






1745 






1746 






1747 


002522 


031376 


1748 


002524 


032047 


1749 


002526 


031732 


1750 


002530 


000000 


1751 






1752 






1753 






1754 


002532 


031410 


1755 


002534 


033235 


1756 


002536 


031762 


1757 


002540 


000000 


1758 






1759 






1760 






1761 


002542 


031433 


1762 


002544 


033207 


1763 


002546 


031732 


1764 


002550 


000000 


1765 






1766 






1767 






176B 


002552 


031474 


1769 


002554 


032047 


1770 


002556 


031732 


1771 


002560 


000000 


1772 






1773 






1774 






1775 


002562 


030306 


1776 


002564 


0321 13 


1777 


002566 


031762 


1778 


002570 


000000 


1779 






1780 






1781 






1782 


002572 


031531 


1783 


002574 


032327 


1784 


002576 


031742 


1785 


002600 


000000 


1786 






1787 






1788 






1789 


002602 


031547 


1790 


002604 


033273 


1791 


002606 


031742 


1792 


002610 


000000 


1793 






1794 






1795 






1796 






1797 


002612 


031616 



DT2 


lITEM 107 

EM132 
DH4 
DT2 


;ITEM 110 

EM133 
DH133 
DT26 


;ITEM 111 

EM134 
DH131 
DT2 


;ITEM 112 

EM135 
DH4 
DT2 


;ITEM 113 

EM1 10 
DH14 
DT26 


;ITEM 114 

EM137 
DH44 
DT20 


;ITEM 115 

EM140 
DH140 
DT20 



;ITEM 116 

EM141 



;$ERRPC SREGO SREG1 



;RKER ERROR 
;PC EXPCT 
;SERRPC SREGO 



RECVD 
SREG1 



;NXC BIT DID NOT SET 
j PC RKCS RKER 
;PC SREGO SREG1 



RKDA 
SREG2 



;RK11 DIDN'T INTERRUPT ON SOFT ERROR 
;PC RKCS RKER 
;$ERRPC SREGO $REG1 



;MEX BITS INCREMENTED WRONG IN RKCS 
;PC EXPCTD RECVD 
;$ERRPC SREGO SREG1 



CNTRL RDY DID NOT SET AFTER WRT CHK 
PC RKCS RKER RKWC 
SERRPC SREGO SREG1 SREG2 



; 'WPS' NOT CLEAR 

;PC RKCS RKER RKDS RKDA 

;$ERRPC SREGO SREG1 SREG2 SREG3 



;DATA ERROR ON TRANSFER FROM DISK TO TTY 
;PC EXPCT RECVD RKBA RKCS 
;SERRPC SREGO SREG1 SREG2 SREG3 



;«DRIVE #' PRESENT, BUT NOT SPECIFIED 



MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2 
CZRKKF.P11 21-FEB-78 08:51 



MACY11 30A(1052) 21 

ERROR POINTER TABLE 



•FEB-78 08:58 PAGE 35 



SEO 0034 



1798 


002614 


032732 


1799 


002616 


031724 


1800 


002620 


000000 


1801 






1802 






1803 






1804 


002622 


025370 


1805 


002624 


032047 


1806 


002626 


031732 


1807 


002630 


000000 


1808 






1809 


002632 


031662 


1810 


002634 


000000 


1811 






1812 






1813 







DH74 
DT1 



117 

EM11 

DH4 

DT2 



120 

EM 142 





;PC DRIVE 
;$ERRPC SREGO 



RKWC ERROR 
PC EXPCT 
SERRPC SREGO 



RECVD 
SREG1 
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1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
185S 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 



002636 000005 



002640 
002646 
002650 
002654 
002560 
002566 
002670 
002672 
002674 
002676 
002700 
002702 
002704 



0027C4 
002710 
002712 
002716 
002720 

002724 
002732 
002740 
002746 
002754 
002762 
002770 
002776 
003004 
003010 
003014 
003022 
003030 



023737 
001016 
005C77 
012700 
032777 
001006 
005001 
005301 
001376 
005300 
001367 
000000 



012706 
005026 
022706 
001374 
012706 

012737 
012737 
012737 
012737 
012737 
012737 
012737 
012737 
005037 
005037 
112737 
012737 
012737 



003036 
003042 
003050 

003056 
003064 
003072 

003074 

003078 
003102 
003104 
003112 
003120 

003124 
003132 



START: RESET 

;;GIVE DRIVES TIME TO LOAD HEADS 



000042 000046 



176464 
000250 
000200 



001100 

022140 
000340 
022412 
000340 
024676 
000340 
024776 
000340 
001206 
001210 
000001 
003022 
003030 



013746 
012737 
012737 
012737 
022777 
001012 

000403 
012716 
000002 
012737 
012737 
012637 



176440 20$: 



000004 
003076 
177570 
177570 
177777 



023737 000042 000046 
001416 



CMP 
BNE 
CLR 
MOV 
BIT 
BNE 
CLR 
DEC 
BNE 
DEC 
BNE 
HALT 



@>#42,@#46 

STARTA 

@RKDA 

#250, RO 

#200,@RKOS 

STARTA 

R1 

R1 

.-2 

RO 

20$ 



CLEAR THE BUS 

IN CASE OF AN APT START. 

ARE WE IN ACT11 AUTOMATIC MODE? 

NO, SKIP DELAY 

SELECT UNIT 

WAIT FOR. . 

DRIVE READY. . 

IN CASE. . 

OF APT.. 

START, BUT.. 

DON'T WAIT.. 

FOREVER. 



RKDS BIT 7 (DRIVE READY) N^VER SET 



STARTA: 

.SBTTL 



INITIALIZE THE COMMON TAGS 



000020 
000022 
000030 
000032 
000034 
000036 
000024 
000026 



0011 15 
001106 
0011 10 



000004 
001 140 
001142 
176046 



000176 001140 
000174 001142 
000004 



;;CLEAR THE COMMON TAGS (SCMTAG) AREA 



MOV 
CLR 
CMP 
BNE 
MOV 
INITIALIZE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
MOVB 
MOV 
MOV 
;S1ZE FOR A 
;EQUAl TO A 
MOV 
MOV 
MOV 
MOV 
CMP 
BNE 



BR 
MOV 
RTI 
MOV 

MOV 
MOV 



#$CMTAG,R6 

(R6)+ ; 

0SWR.R6 ;;DONE? 

.-6 ; 

0STACK.JP ; 
FEW VECTORS 
#$SCOPE,»#IOTVEC 
#340,G#I0TVEC+2 ; 
#$ERROR,@#EMTVEC 
#340,@#EMTVEC+2 ; 
#$TRAP,@#TRAPVEC 
#340, <P>#TRAPVEC+2; LEVEL 7 



#$PWRDN,@#PWRVEC 
#340,@#PWRVEC+2 
$TIMES 
$ESCAPE 
#1 ,$ERMAX 
#.,$LPADR 
,$LPERR 



064$,@#ERRVEC 
0DSWR.SWR 
0DDISP, DISPLAY 
#-1 ,@SWR 
66$ 



FIRST LOCATION TO BE CLEARED 
CLEAR MEMORY LOCATION 

LOOP BACK IF NO 

SETUP THE STACK POINTER 

;IOT VECTOR FOR SCOPE ROUTINE 

LEVEL 7 

;EMT VECTOR FOR ERROR ROUTINE 

LEVEL 7 

;TRAP VECTOR FOR TRAP CALLS 



66$ 



; POWER FAILURE VECTOR 
LEVEL 7 

INITIALIZE NUMBER OF ITERATIONS 
CLEAR THE ESCAPE ON ERROR ADDRESS 
ALLOW ONE ERROR PER TEST 
INITIALIZE THE LOOP ADDRESS FOR SCOPE 
SETUP THE ERROR LOOP ADDRESS 
HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
", SETUP FOR A SOFTWARE SWITCH REGISTER. 
@#ERRVEC,-(SP) ;;SAVE ERROR VECTOR 

; ;SET UP ERROR VECTOR 

;;SETUP FOR A HARDWARE SW1CH REGISTER 
;;AND A HARDWARE DISPLAY REGISTER 
;;TRY TO REFERENCE HARDWARE SWR 
;; BRANCH IF NO TIMEOUT TRAP OCCURRED 
;;AND THE HARDWARE SWR IS NOT ■ -1 
65$ ; jBRANCh IF NO TIMEOUT 

#65$, (SP) ;;SET UP FOR TRAP RETURN 



#SWREG,SWR 
0DISPREG, DISPLAY 
<SP) + ,«»#ERRVEC 



;; POINT TO SOFTWARE SWR 
{RESTORE ERROR VECTOR 



CMP ®042,iM4B 

BEO 59$ 
.SBTTL TYPE PROGRAM NAME 
;;TYPE THE NAME OF THE PROGRAM IF FIRST PASS 



;ARE WE IN ACT11 AUTOMATIC MODE? 
;YES, SKIP TITLE 



MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2 
CZRKKF.P11 21-FEB-78 08:51 



1870 


003134 


005227 


177777 


1871 


003140 


001043 




1872 


003142 


104401 


003200 


1873 








1874 


003146 


005737 


000042 


1B75 


003152 


001006 




1876 


003154 


023727 


001140 000176 


1877 


003162 


001005 




1878 


003164 


104406 




1879 


003166 


000403 




1880 


003170 


112737 


000001 001134 


1881 


003176 






1882 


003176 


000424 




1883 








1884 


003250 






1885 


003250 


012700 


001410 


1886 


003254 


012701 


177764 


1887 


003260 


005020 




1888 


003262 


005201 




1889 


003264 


001375 




1890 


003266 


005227 


177777 


1891 


003272 


001020 




1892 


003274 


013746 


000004 


1893 


003300 


012737 


003314 000004 


1894 


003306 


005737 


177776 


1895 








1896 


003312 


000406 




1897 


003314 


012737 


000140 001400 


1898 








1899 


003322 


012716 


003330 


1900 


003326 


000002 




1901 


003330 


012637 


000004 


1902 








1903 








1904 








1905 


003334 


012700 


001410 


1906 


003340 


012701 


177766 


1907 


003344 


005020 




1908 


003346 


005201 




1909 


003350 


001375 




1910 


003352 


122737 


000002 000041 


1911 


003360 


001 166 




1912 
1913 
1914 


003362 


013737 


000040 001410 


003370 


122737 


000010 00141Q 


1915 


00337S 


101002 




1916 
1917 

1918 


003400 


105037 


001410 


003404 


005737 


000042 


1919 


003410 


001432 




1920 


003412 


005737 


001410 


1921 


003416 


001002 




1922 


003420 


000137 


004262 


1923 


003424 






1924 


003424 


104401 


003432 


1925 


003430 


000413 





MACY11 30AO052) 21-FEB-78 08:58 PAGE 37 
TYPE PROGRAM NAME 

INC #-1 ;;FIRST TIME? 

BNE 67$ ; : BRANCH IF NO 

TYPE ,68$ ;;TYPE ASCIZ STRING 

.SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 

;;ARE WE RUNNING UNDER XXDP/ACT? 

; ; BRANCH IF YES 

;;SOFTWARE SWITCH REG SELECTED? 

; ; BRANCH IF NO 

;;GET SOFT-SWR SETTINGS 

;;SET AUTO-MODE INDICATOR 

; ;GET OVER THE ASCIZ 
<CRLF>/RK11 LOGIC TEST 2/<15><12>/MAINDEC-1 1-CZRKKF/<CRLF> 



FIRST START ? 

BR IF NOT 

SAVE ERROR VECTOR ADDRESS 

NEW VECTOR ADDRESS 

SEE IF PROGRAM CAN REFERENCE THE 

PROCESS?R STATUS WORD 

BR IF REFERENCE DIDN'T CAUSE TRAP 

SETUP INTERRUPTING PRIORITY TO VALUE 

WHICH WILL ALLOW INTERRUPT ON AN LSI-11 

SETUP RETURN ADDRESS 

RETURN 

RESTORE THE ERROR VECTOR 





TST 


@#42 




BNE 


69$ 




CMP 


SWR.0SWREG 




BNE 


70$ 




GTSWR 






BR 


70$ 


69$: 


MOVB 


#1 ,$AUTOB 


70$: 








BR 


67$ 


;;6B$: 


.ASCIZ 


<CRLF>/RK11 


67$: 








MOV 


#DDPCH,R0 




MOV 


#-14,R1 


1$: 


CLR 


(R0) + 




INC 


R1 




BNE 


1$ 




INC 


0-1 




BNE 


START1 




MOV 


ERRVEC.-(SP) 




MOV 


#2$,ERRVEC 




TST 


PS 




BR 


3$ 


2$: 


MOV 


#140,RKPRI 




MOV 


#3$,(SP) 




RTI 




3$: 


MOV 


(SP)+,ERRVEC 


•FIND 


OUT IF ACT11 , 'XXDP' C 


START1 


: MOV 


0DDPCH.RO 




MOV 


#»12, R1 


1$: 


CLR 


(R0) + 




INC 


R1 




BNE 


1$ 




CMPB 


#2,41 




BNE 


ST2 




MOV 


40,DDPCH 




CMPB 


#10, DDPCH 




BHI 


2S 




CLRB 


DDPCH 


2$: 


TST 


42 




BEQ 


4$ 




TST 


DDPCH 




BNE 


3$ 




dMP 


ST3 


3$: 








TYPE 


,65$ 




BR 


64$ 



;CLEAR OUT DRIVE TABLE AREA 



LOADED FROM AN RK05 ? 

BR IF NOT 

GET DEVICE INDICATOR AND DRIVE ADDRESS OF 

LOADING RK05 

VALID DRIVE NUMBER IN BYTE 40 ? 

BR IF YES 

MUST BE DRIVE ZERO WHICH LOADED 

THIS PROGRAM 

CHAIN MODE OR ACT1 1 AUTO ACCEPT ? 

BR IF NEITHER 

RUNNING FROM AN RK05 ? 

BR IF YES 

FIND OUT NUMBER OF DRIVES 



;TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 



MD-11-CZRKKF, RK1 1 BASIC LOGIC TEST 2 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 



SEO 0037 



1926 








1927 


003460 






1928 


003460 


005046 




1929 


003462 


113716 


001410 


1930 


003466 


104403 




1931 


003470 


001 




1932 


003471 


000 




1933 


003472 


000137 


004262 


1934 


003476 


005227 


177777 


1935 


003502 


001 1 15 




1936 


003504 


104401 


003512 


1937 


003510 


00041 1 




1938 








1939 


003534 






1940 


003534 


005046 




1941 


003536 


113716 


001410 


1942 


003542 


104403 




1943 


003544 


001 




1944 


003545 


000 




1945 


003546 


104401 


003554 


1946 


003552 


000431 




1947 








1948 


003636 






1949 


003636 


104401 


003644 


1950 


003642 


000435 




1951 








1952 


003736 






1953 








1954 








1955 








1956 








1957 








1958 








1959 


003736 


012700 


001412 


1960 


003742 


012701 


177765 


1961 


003746 


005020 




1962 


003750 


005201 




1963 


003752 


001375 




1964 


003754 


104401 


003762 


1965 


003760 


000415 




1966 








1967 


004014 






19S8 


004014 


104411 




1969 


004016 


012600 




1970 


004020 


01 2701 


177770 


1971 


004024 


112002 




1972 


004026 


042702 


177400 


1973 


004032 


01 2703 


001414 


1974 


004036 


012704 


177770 


1975 


004042 


01 2705 


000060 


1976 


004046 


020502 




1977 








1978 


004050 


001414 




1979 


004052 


005205 




1980 


004054 


005723 




1981 


004056 


005204 





;;65$: 
64$: 



•ASCIZ <15><12>/N0T TESTING DRIVE / 



;;67$: 
66$: 



;;69$: 
68$: 



;;71$: 
70$: 

FIND 
TEST 
LOGI 



CLR 

MOVB 

TYPOS 

.BYTE 

.BYTE 

JMP 

INC 

BNE 

TYPE 

BR 

.ASCIZ 

CLR 

MOVB 

TYPOS 

• BYTE 

• BYTE 
TYPE 
BR 
.ASCIZ 

TYPE 



-(SP) 
DDPCH.(SP) 



ST3 

#-1 

ST2 

,67$ 

66$ 

<15><12>/T0 TEST 

-(SP) 
DDPCH.(SP) 



CLEAR WORD ON STACK 

GET DRIVE ADDRESS 

TYPE THE ADDRESS 

ONLY 1 CHARACTER 

SUPRESS LEADING ZEROS 

GET NUMBER OF DRIVES 

FIRST TIME THROUGH HERE ? 

BR IF NOV 

;TYPE ASCIZ STRING 

;GET OVER THE ASCIZ 

DRIVE / 

CLEAR WORD ON THE STACK 
GET DRIVE ADDRESS 
TYPE THE DRIVE ADDRESS 
ONLY 1 CHARACTER 
SUPRESS LEADING ZEROS 
;TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 



1 



,69$ 

68$ 

/ HALT PROGRAM, REMOVE RKDP PACK AND REPLACE IT/<15><12> 



,71$ 

70$ 

/WITH 



;;TYPE ASCIZ STRING 
; ;GET OVER THE ASCIZ 
WORK PACK, CLEAR LOCATION 40, 



AND RESTART PROGRAM/ 



ST2: 

13$: 



;;65$: 
64$: 



OUT FROM USER WHICH DRIVES (LOGICAL ADDRESSES) ARE TO BE 
ED (DRIVES TO BE TESTED ?). IN REPLY THE USER SHOULD TYPE IN THE 
CAL ADDRESSES SEPERATED BY COMMAS. THUS IF 2 DRIVES 0,1 ARE PRESENT: 

'DRIVS TO B TSTD?' 

'0,1<CR>' A CAR. RET. SHOULD BE TYPED TO TERMINATE THE LIST. 



MOV 

MOV 

CLR 

INC 

BNE 

TYPE 

BR 

.ASCIZ 

RDLIN 

MOV 

MOV 

MOVB 

BIC 

MOV 

MOV 

MOV 

CMP 



#DRIVS,RO 
#-13, R1 
(R0) + 
R1 

,65$ ;;TYPE ASCIZ STRING 

64$ ;;GET OVER THE ASCIZ 

<15><12>/DRIVES TO BE TESTED ?/<15><l2> 



(SP)+,RO 
#-10, R1 
(R0)+,R2 
#177400, R2 
#DRIV0,R3 
#-10, R4 
#60, R5 
R5.R2 



BEQ 3$ 

INC R5 

TST (R3)+ 

INC R4 



;GET STARTING ADRES OF ASCII STRING 

;SET UP COUNT 

;GET ASCII CHARACTER 

;MASK UNWANTED BITS 



;WAS THE TYPED IN CHARACTER 

;A NUMBER BETWEEN 0-7? 

;YES, BRANCH 

;N0, INCREMENT 

INCREMENT POINTER TO DRV FLAG 

;CHARACTER THAT WAS INPUT 



MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 



1982 

1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 
2036 
2037 



004060 001372 



004062 
004064 
004066 
004066 
004072 

004100 
004100 
004102 
0041 04 
004106 
0041 10 
0041 14 
0041 16 
004122 
004126 
004130 
004134 
004140 
004142 
004146 
004150 
004156 
004160 
004164 
004166 
004174 
004200 
004202 
004204 
004210 
004212 
004214 

004216 

004220 

004222 

004224 
004226 



004230 
004234 
004242 
004244 
004250 

004252 
004260 



177400 
000106 



100000 
000001 



005702 

001461 



104401 
000402 



000716 
005713 
001370 
005213 
005237 
11 1002 
042702 
022702 
001026 
052713 
032705 
001407 
005763 
001347 
012763 
000406 
005763 
001340 
012763 
005237 
105720 
000744 
022702 
001403 
005702 
001324 

000404 
105720 

005201 
001277 
000717 



005037 001440 

032777 002000 
001003 

005037 001344 



;;67$: 

66$: 



100001 177776 



100001 
001412 



TST 
BEQ 

TYPE 

BR 

.ASCIZ 

BR 

TST 

BNE 

INC 

INC 

MOVB 

BIC 

CMP 

BNE 

BIS 

BIT 

BEQ 

TST 

BNE 

MOV 

BR 

TST 

BNE 

MOV 

INC 

TSTB 

BR 

CMP 

BEQ 

TST 

BNE 

BR 
TSTB 

INC 
BNE 
BR 



012737 
000476 



000001 001344 7$: 



CLR 
BIT 
BNE 
CLR 
BR 

MOV 

BR 



,67$ 

66$ 

/??/ 

ST2 

@R3 

4$ 

§>R3 

DRIVS 

@R0,R2 

#17740 

#'F,R2 

8$ 

#BIT15 

#BITO 

9$ 

-2(R3) 

4$ 

#BIT15 

10$ 

2(R3) 

4$ 

#BIT15 

DRIVS 

(R0) + 

11$ 

#54, R2 

5$ 

R2 

4$ 

6$ 
(R0) + 

R1 
1$ 
4$ 



;SHOULD BE 0-7, IF ANY OTHER 

;TYPE ?? & AGAIN ASK FOR 

;DRIVS TO BE TSTD? 

;IS IT A TERMINATOR? 

;YES, EXIT. NO DRIVES INDICATED. 

; ;TYPE ASCIZ STRING 
; ;GET OVER THE ASCIZ 



;G0, AGAIN ASK QUESTION 
;SEE IF ALL READY SELECTED 
JERROR IF SELECTED ALL READY 

SET UP FLAG FOR THE DRIVE 

INCREMENT TOTAL NO OF DRIVES PRESENT 

GET NEXT CHAR 

CHARACTER ONLY 

IS IT F? 

NO, GO ON 
@R3 ;SET BIT 15 TO SHOW RK05F 
R5 ;EVEN DRIVE? 

EVEN DRIVE SO BRANCH 

CHECK EVEN DRIVE 

EVEN ALL READY SELECTED 
!BIT0,-2(R3) ;SELECT EVEN DRIVE 

CONTINUE 

CHECK ODD DRIVE 

ERROR IF SELECTED BEFORE 
;SELECT ODD DRIVE 

COUNT DRIVES SELECTED 

POINT TO NEXT CHAR 

CHECK FOR COMMA 

IS IT A 'COMMA'? 

YES, GO PROCESS NXT WORD 

NO, IS IT A TERMINATOR? 

IF NOT, SOMETHING WRONG 

GO ASK QUESTION AGAIN 

EXIT, IF A TERMINATOR 

INCREMENT PTR TO NXT BYTE 

IN INPUT BUFFER 

THERE SHOULD BE NO MORE THAN 

8 DRIVES, HENCE IF MORE 

THAN 8 DIFFERENT NOS. TYPED IN, ERRORS 

GO AGAIN ASK THE QUESTION 



SIZYET 

#SW10,©SWR 

7$ 

SIMUL 

ST4 

#1 , SIMUL 
ST4 



NO SIZI-.G NEEDED 
TESTING ON SIMULATOR? 
YES, BRANCH 
NO, CLR FLAG 



,-SET FLAG TO INDICATE SIMULATOR 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 



2038 

2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2093 



004262 
004270 
004276 
004302 
004306 
004314 
004316 
004320 
004324 
004330 
004332 
004334 
004340 
004344 
004350 
004352 
004356 



012737 
012737 
005777 
005777 
012737 
104401 
001216 
012700 
005037 
005001 
005004 
012702 
010177 
020177 
001405 
012703 
004737 



177777 

004442 
175024 
175032 

004534 



177770 
001412 



001414 
174774 
174770 

004356 
021026 



001440 
000004 



004362 000413 

004364 032777 000200 174734 



004372 

004374 
004376 
004400 
004404 
004406 
004410 
004412 
004414 
004420 
004422 
004424 
004426 
004432 
004434 
004436 
004440 



001407 
104401 
001213 
005237 
005212 
01 0446 
104402 
005722 
062701 
005204 
005200 
001345 
005737 
001011 
104401 
001236 
000406 



004442 011603 

004444 022626 

004446 062703 177776 

004452 004737 021026 



UMBER 


OF DRIVES 


MOV 


#-1,SIZYZT ; 


MOV 


#5$,@#4 ; 


TST 


@RKDS ; 


TST 


@RKDA ; 


MOV 


#BADTM0,@#4 


TYPE 




MSG1 




MOV 


0-1 Q, RO 


CLR 


DRIVS ; 


CLR 


R1 ; 


CLR 


R4 


MOV 


#DRIV0,R2 


MOV 


R1.GRKDA ; 


CMP 


R1.3RKDA 


BEQ 


3$ ; 


MOV 


#2$,R3 


JSR 


PC.TYERM S 



BR 


4S 


BIT 


#200,@RKDS 


BEQ 


4$ 


TYPE 




$CRLF 




INC 


DRIVS 


INC 


(R2) 


MOV 


R4 f -(SP) 


TYPOC 




TST 


(R2) + 


ADD 


#20000, R1 


INC 


R4 


INC 


RO 


BNE 


1$ 


TST 


DRIVS 


BNE 


ST4 


TYPE 




MSG2 




BR 


ST4 


MOV 


(SP),R3 


CMP 


(SP)+,(SP) 


ADD 


#-2,R3 


USR 


PC.TYERM 



CHECK FOR RK05F LATER 

SET UP ADRES FOR TIME-OUT VECTOR 

REFERENCE RKDS 

REFERENCE RKDA 



INITIALIZE COUNT FOR THE 8 DRIVES 
INITIALIZE H OF DRIVES PRESENT TO 
INITIALIZE ADDRESS TO DRIVE 



ADDRESS THE DRIVE 
CHECK. WAS IT ADDRESSED? 
YES 

WHILE CHECKING NUMBER OF DRIVE 

UNDER NON-MANUAL MODE S- 

RKDA HAD TO BE ADRESED BUT 

IT WAS FOUND THAT THE DRIVE NO 

THAT WAS WRITTEN COULD NOT BE READ BACK 

CORRECTLY. 



CHECK IT 
PRESENT 



'DRY' BIT IS SET, IP SET DRIVE IS 



;IF PRESENT, INCREMENT # OF DRIVES 

;SET UP FLAG INDICATING THIS DRIVE PRESENT 



;SHIFT POINTER TO NXT DRIVE INDICATOR 
;SET UP ADDRESS FOR THE NEXT DRIVE 
;HAVE U CHECKED FOR ALL 8 DRIVES 



;G0 CHECK THE DRIVE INDEPENDENT 
^CONTROLLER LOGIC 
;GET PC WHERE TIMEOUT OCCURED 
;RESTORE STACK 

;GO TYPE ERROR MESSAGE 

;WHILE CHECKING FOR THE NUMBER OF 

;DRIVES IN NON-MANUAL MODE*.- 

;RKDS AND RKDA HAD TO BE REFERENCE!:. TIMEOUT 

;OCCURED ON REFERENCING. PC IN THE ERROR 

-.MESSAGE INDICATES WHERE THT TIMEOUT OCCURED. 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 



2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
21 11 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 



004456 005037 001434 

004462 005737 001412 

004466 001004 

004470 004737 021742 

004474 000137 020652 

004500 012737 001414 

004506 005037 001352 



004600 
004602 

004604 
004612 
004614 



004620 
004622 



001354 1$: 



004512 005037 001350 

004516 012737 004534 000004 

004524 012777 004600 174650 

004532 000465 



004534 011600 

004536 005740 

004540 022626 

004542 104401 004550 

004546 000407 

004566 

004566 010046 

004570 104402 

004572 000000 

004574 000137 002636 



CLR 


T56FLG 


TST 


DRIVS 


BNE 


1$ 


JSR 


PC.WATIME 


JMP 


SEOP 


MOV 


#DRIV0,DRVPTR 


CLR 


DRVDON 


CLR 


DRIVAD 


MOV 


#BADTM0,§>#4 


MOV 


#BADINT,@RKVEC 


BR 


TST1 



INITIALIZE THE NO. OF DRIVES 

THAT HAVE BEEN CHECKED 

INITIALIZE DRIVE ADDRESS TO 

THE FIRST DRIVE 

SET TIME OUT VECTOR FOR UNEXPECTED 

TIME OUTS 

SET UP RK11 INTERRUPT VECTOR FOR 

UNEXPECTED INTERRUPTS FROM RK1 1 

GO TO TEST 1 



•THIS ROUTINE HANDLES UNEXPECTED TIME OUTS 



BADTMO: MOV 
TST 
CMP 
TYPE 
BR 



(SP),R0 SSAVE PC WHERE TIME OUT OCCURED 
~(R0) 



(SP)+ S (SP)+ 

,65$ 

64$ 



; ; 65$ i 
64$ : 



.ASCIZ <15><12>/TIMOUT,PC«/ 
RO,-(SP) 



RESTORE STACK POINTER 
•TYPE ASCIZ STRING 
GET OVER THE ASCIZ 



MOV 
TYPOC 
HALT 
UMP 



SET UP FOR TYPING OUT PC 
GO TYPE OUT OCTAL PC 



;THIS ROUTINE HANDLES UNEXPECTED INTERRUPTS FROM RK1 1 
;SW 9 AND 10 FOR LOOPING ON ERROR 
;AND LOOPING ON TEST IN WHICH TIMEOUT 
JOCCURRED, ARE PROVIDED. 



01 1600 
005740 
032777 
001014 
104401 



020000 174326 



(SP) ,R0 
-(RO) 

#20000, ©SWR 
1$ 



004616 001213 



104401 
026004 



004624 104401 004632 

004530 000403 



004640 
004640 



BADI NT*. MOV 
TST 
BIT 
BNE 
TYPE 
SCRLF 
TYPE 
EM43 



TYPE ,65$ 

BR 64$ 

j;65$: .ASCIZ /,PC»/ 

64$: 

MOV R0,-(SP) 



;SAVE PC WHERE INTERRUPT OCCURED 



; INHIBIT ERROR TYPEOUT? 
;YES, DON'T TYPE OUT 



TYPE 'UNEXPEXTED RK1 1 INTERRUPT 1 
TYPE ' AT PCs' 
;TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 



;SET UP FOR TYPING OUT PC 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 



2150 


004642 


104402 




2151 








2152 


004644 


032777 


001000 


2153 


004652 


001403 




2154 


004654 


022626 




2155 


004656 


000177 


174224 


2156 








2157 


004662 


032777 


040000 


2158 


004670 


001401 




2159 


004672 


000002 




2160 


004674 


0000Q0 




2161 








2162 








2163 








2164 


004676 


000137 


002636 


2165 








2166 








2167 








2168 








2169 








2170 








2171 








2172 








2173 








2174 


004702 


004737 


021742 


2175 








2176 








2177 








2178 








2179 








2180 








2181 








2182 








2183 








2184 








2185 








2186 








2187 








2188 








2189 








2190 








2191 








2192 


004706 


000004 




2193 








2194 


004710 


012700 


001414 


2195 


004714 


005001 




2196 


004716 


005002 




2197 


004720 


005737 


001410 


2198 


004724 


001403 




2199 


004726 


120237 


001410 


2200 


004732 


001435 




2201 


004734 


010177 


174400 


2202 


004740 


105777 


174362 


2203 


004744 


100005 




2204 








2205 


004746 


005710 





174266 1$: 



174250 2$: 



TYPOC 


; 


BIT 
BEO 
CMP 
JMP 


#1000, @swr ; 
2S ; 

(SP)+ f (SP)+ 

@$lpadr ; 


BIT 
BEQ 
RTI 
HALT 


#40000, @SWR ; 

3$ ; 


JMP 


@#START 



BAD 



GO TYPE OCTAL PC WHERE 

INTERUPT OCCURED 

LOOP ON ERROR? 

NO, BRANCH 

YES, REPOSITION STACK 

GO TO THE STARTING ADDRESS OF 

THE TEST THAT GAVE UNEXPECTED INTERRUPT 

LOOP ON TEST? 

NO, BRANCH 

YES. LOOP. GO BACK WHER U INTERRUPTED FROM. 

UNEXPECTED INTERRUPT OCCURED AS 

INDICATED IN THE TYPE OUT.U CAN LUJP 

ON ERROR. TEST, OR INHIBIT TYPEOUT BY 

SETTING APPROPRIATE SWITCH'S. 

GO BACK TO THE START OF THE 

PROGRAM. THUS PRESSING CONTINUE 

AFTER THE ABOVE HALT WILL 

RESTART THE PROGRAM 



-.RESTART AFTER POWER FA*L 

;THE PROGRAM WOULD RESTART HERE IF POWER CAME BACK AFTER A FALIURE. 



PFSTRT: JSR 



;KILL TIME 



;*TEST 1 



CHECK THAT THE DRIVES THAT ARE NOT SPECIFIED ARE NOT FOUND TO BE PRESENT 
*THIS TEST CHECKS THAT THE DRIVES THAT ARE NOT SPECIFIED 
*(IN RESPONSE TO "DRIVS TO BE TSTD?") ARE NOT FOUND TO BE PRESENT. 
*EVERY DRIVE FROM TO 7 IS ADDRESSED. IF A PARTICULAR DRIVE 
*GIVES 'DRY' (IN RKDS). IT IS CHECKED THAT THIS DRIVE 
*WAS SPECIFIED BY THE USER, IF IT WAS NOT AN ERROR IS 
•REPORTED, GIVING THE DRIVE NUMBER. IT IS LIKELY THAT THE USER 
*MAY HAVE FORGOTTEN TO PUT THE DRIVE (THAT IS NOT SPECIFIED) ON 
*'LOAD'. IF THIS IS THE CASE THEN PUT THIS DRIVE ON 'LOAD'. 
*IF THIS IS NOT THE CASE, THERE IS A GENUINE ERROR. (TWO DIFFERENT 
*DRIVE ADDRESSES MAY BE RESULTING IN THE SELECTION OF THE SAME 
*PHYSICAL DRIVE.) 



INITIALIZE POINTER 

INITIAL. ZE DRIVE ADRES 

INITIALIZE DRIVE # 

LOADED FROM AN RK05 ? 

B IF NOT 

LOADED FROM THIS DRIVE ? 

BR IF YES 

ADRES THE DRIVE 

DRIVE READY? 

NO, THIS DRIVE NOT PRESENT 

YES, THIS DRIVE SELECTED 

WAS THIS DRIVE SPECIFIED BY 



' .****# 


******** 


********** 


TST1: 


SCOPE 






MOV 


#DRIV0,R0 




CLR 


R1 




CLR 


R2 


1$: 


TST 


DDPCH 




BEO 


2$ 




CMPB 


R2, DDPCH 




BEQ 


4S 


2$: 


MOV 


R1 ,@RKDA 




TSTB 


@RKDS 




BPL 


3$ 
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T1 CHECK THAT THE DRIVES THAT ARE NOT SPECIFIED ARE NOT FOUND TO BE PRESENT SEQ 0042 



2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 
2258 
2259 
2260 
2261 



004750 001026 



004752 
004756 



004760 
004762 



010237 001162 
104116 



005710 
001421 



004764 
004770 



004774 
004776 

005002 
005006 
005012 
005016 
005022 
005026 
005030 
005032 
005036 



004737 
104010 



004772 005010 



010003 
162703 
042703 
062703 
042723 
042713 
005337 
005202 
005720 
062701 
001330 



001414 
000003 
001414 
100000 
100000 
001412 



BNE 4$ 



MOV R2.SREG0 
ERROR 116 



TST 
BEQ 



JSR 
ERROR 



@R0 

4$ 



PC.GT4RG 
10 



THE USER? 

YES, OK 

NO, THIS DRIVE # WAS NOT SPECIFIED 

BY THE USER, BUT STILL IS GIVING 

'DRY' WHEN ADRESED. REPORT EROR. 

GET DRIVE M 

THIS DRIVE H WAS NOT SPECIFIED BY 

THE USER, BUT WHEN ADRESED GAVE 

'DRY'. CHECK THAT THIS DRIVE # IF 

PHYSICALLY PRESENT IS ON 'LOAD'. IF 

THIS IS NOT THE CASE, THEN ONE DRIVE 

MAY BE GETTING SELECTED BY TWO DIFFERENT 

LOGICAL ADDRESSES. 

CHECK THAT THIS DRIVE WAS NOT INDICATED 

IF IT WAS. & IT IS NOT FOUND TO BE 

PRESENT (DRY CLEAR), REPORT ERROR. 

GET RKCS, ER, DS . DA 

DRIVE # (AS IN RKDA) WAS INDICATED BY 

THE USER, BUT WAS NOT FOUND TO BE PRESENT. 

CHECK THAT THE ROTARY DRIVE SELECTION 

SWITCH ON THE MODULE IS SET TO THE RIGHT 

DRIVE #. 

THIS DRIVE IS NOT FOUND TO BE PRESENT 

HENCE DROP IT FROM THE SELECTION TABLE. 

DRIVE ^DR 

MINUS OFFSET FOR TABLE 

EVEN DRIVE OF PAIR 

POINT TO EVEN OF PAIR IF RK05 F 

NOT SPECIFIED AS F MODEL 

SAME 

DECREMENT DRIVE COUNT 

INCRMNT DRIVE # 

INCRMNT POINTER 

INCRMNT ADRES TO NXT DRIVE 

LUP BAK IF NOT DONE 



THIS PART OF THE PROGRAM IS GOING TO BE REPEATED FOR 
EACH DRIVE PRESENT 

'DRIVAD' CONTAINS IN BITS 15,14,13 THE ADDRESS OF THE 
DRIVE BEING CURRENTLY CHECKED. 



•****#**#*******************#****#**#***#*****##**#*#*###*****^* 

*TEST 2 FIND OUT NEXT DRIVE TO BE CHECKED 

THIS CODE FINDS OUT THE NEXT DRIVE THAT IS PRESENT AND THEN SETS UP 

THE ADDDRESS IN DRIVAD (BITS 13,14,15). THUS THROUGHOUT THE FOLLOWING TESTS 

THE DRIVE TESTED IS THE DRIVE WHOOSE ADDRESS IS IN 'DRIVAD'. 

.***********************************«!*************************** 



MOV 


R0.R3 


SUB 


#DRIV0,R3 


BIC 


#3,R3 


ADD 


#DRIV0,R3 


BIC 


#100000, (R3) 


BIC 


#100000, (R3) 


DEC 


DRIVS 


INC 


R2 


TST 


(R0) + 


ADD 


#20000, R1 


BNE 


1$ 



005040 
005042 
005050 



000004 

012737 000001 

012737 000002 





TST2: 


SCOPE 




001206 




MOV 


#1 ,$TIMES 


001102 




MOV 


#2,$TSTNM 



; ;DO 1 ITERATION 

;RESET POINTER TO THIS TEST 
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T2 FIND OUT NEXT DRIVE TO BE CHECKED 



SEQ 0043 



2262 








2263 








2264 


005056 


005037 


001 112 


2265 


005062 


005737 


001412 


2266 


005066 


001002 




2267 


005070 


000137 


020652 


2268 


005074 


013701 


001354 


2269 








2270 


005100 


032721 


000001 


2271 


005104 


001005 




2272 


005106 


062737 


020000 


2273 


0051 14 


001371 




2274 


005116 


000764 




2275 


005120 


005737 


001410 


2276 


005124 


001413 




2277 


005126 


013746 


001350 


2278 


005132 


000316 




2279 


005134 


006216 




2280 


005136 


006216 




2281 


005140 


006216 




2282 


005142 


006216 




2283 


005144 


006216 




2284 


005146 


122637 


001410 


2285 


005152 


001755 




2286 


005154 


010137 


001354 


2287 








2288 


005160 


104401 


001272 


2289 


005164 


013746 


001350 


2290 


005170 


004737 


021200 


2291 


005174 


005037 


001404 


2292 


005200 


01 1600 




2293 


005202 


104403 




2294 








2295 


005204 


001 


000 


2296 


005205 


006300 




2297 


005210 


005760 


001414 


2298 


005214 


100006 




2299 


005216 


104401 


005224 


2300 


005222 


000401 




2301 








2302 


005226 






2303 


005226 


005237 


001404 


2304 


005232 


104401 




2305 


005234 


001213 




2306 








2307 








2308 








2309 


005236 


000004 




2310 


005240 


104413 




2311 








2312 








2313 








2314 








2315 








2316 








2317 









as: 

SSI 



;;65$: 
64$: 



CLR 

TST 
BNE 
JMP 
MOV 

BIT 

BNE 

ADD 

BNE 

BR 

TST 

B£0 

MOV 

SWAB 

ASR 

ASR 

ASR 

ASR 

ASR 

CMPB 

BEQ 

MOV 

TYPE 

MOV 
JSR 
CLR 
MOV 
TYPOS 

.BYTE 
ASL 

TST 

BPL 

TYPE 

BR 

.ASCIZ 

INC 
TYPE 

SCRLF 



SERTTL 

DRIVS 

.+6 

SEOP 

DRVPTR,R1 

#BIT0.(R1)+ 

1S 

#20000, DRIVAD 

2$ 

4$ 

DDPCH 

3$ 

DRIVAD, -(SP) 

(SP) 

(SP) 

(SP) 

(SP) 

(SP) 

(SP) 

(SP)+, DDPCH 

6$ 

R1 ,DRVPTR 

,MSG4 

DRIVAD, "(R6) 
PC.SHFTRT 
FFLAG 
(R6),R0 



1 ,0 

RO 

DRIVO(RO) 

5$ 

,65$ 

64$ 

/F/ 



FFLAG 



CHECK THAT DRIVE 



;N0. CHANGE THIS (2) IN CASE THE 

;TEST NO. CHANGES 

;CLEAR TOTAL ERROR COUNT 

;R THERE ANY DRIVES PRESENT? 

JYES, BRANCH 

;N0. JMP TO THE END 

;GET THAT POINTER TO THE NEXT 

;DRIVE FLAG 

;XS THIS DRIVE PRESENT? 

;YES 

IFORM NXT DRIVE ADRES 



; PROGRAM LOADED FROM AN RKOS ? 

{NO, BRANCH 

; PUT TEST DRIVE ADDRESS ON THE STACK 

;SETUP TO RIGHT JUSTIFY THE ADDRESS 

;RIGHT JUSTIFY THE ADDRESS 

;RIGHT JUSTIFY THE ADDRESS 

;RIGHT JUSTIFY THE ADDRESS 

;RIGHT JUSTIFY THE ADDRESS 

;RIGHT JUSTIFY THE ADDRESS 

; PROGRAM LOADED FROM THIS DRIVE ? 

;BR IF YES, DON'T TEST THE DRIVE 

ISTORE POINTER TO THE. NEXT 

; DRIVE FLAG 

;GET THE DRIVE ADDRESS 
;G0 SHIFT IT TO THE RIGHT 

;DRIVE NUMBER 

;G0 TYPE THE OCTAL # FOR THE 

; DRIVE THAT IS BEING CHECKED 

; INDEX TO TABLE 

;5EE IF F 

|N0 

;;TYPE ASCIZ STRING 

; ;GET OVER THE ASCIZ 



SET F FLAG 

TYPE CR, LF 

IS SUPPLIED WITH POWER-DPL BIT 



SCOPE 
CNT. RESET 



;G0. DO CONTROL RESET 
;THIS IS A CALL FOR THE 'CNTRL- 
;RESET' ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
;IF THE 'CNTRL RDY' DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
;THE PC IN ERROR MESSAGE IS THE 
;PC WHERE 'CNT. RESET' IS LOCATED. 
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2318 








2319 








2320 


005242 


013700 


0Q1326 


2321 


005246 


013777 


001350 174064 


2322 


005254 


005710 




2323 


005256 


001003 




2324 


005260 


01 1037 


001162 


2325 


005264 


104004 




2326 








2327 


005266 


012777 


000015 174036 


2328 








2329 


005274 


005001 




2330 


005276 


032710 


010000 


2331 


005302 


001003 




2332 


005304 


005201 




2333 


005306 


001373 




2334 


005310 


000403 




2335 


005312 


004737 


021002 


2336 


005316 


104005 




2337 








2338 








2339 


005320 


005001 




2340 


005322 


032710 


000100 


2341 


005326 


001010 




2342 


005330 


104417 


000011 


2343 


005334 


005201 




2344 


005336 


001371 




2345 


005340 


017737 


173762 001162 


2346 


005346 


104016 




2347 








2348 








2349 








2350 








2351 








2352 








2353 








2354 








2355 








2356 


005350 


000004 




2357 


005352 


104413 




2358 








2359 








2360 








2361 








2362 








2363 








2364 








2365 








2366 








2367 


005354 


013777 


001350 173756 


2368 


005362 


01 7700 


173740 


2369 


005366 


032700 


002000 


2370 


005372 


001403 




2371 


005374 


004737 


021002 


2372 


005400 


104006 




2373 
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T3 CHECK THAT DRIVE IS SUPPLIED WITH POWER-DPL BIT 



;THIS IS A VERY BASIC ERRS 
; OCCURS GO BACK TO TEST 10 



SEQ 0044 





MOV 


RKDS.RO 




MOV 


DRIVAD, @RKDA ; 




TST 


@R0 ; 




BNE 


1$ ; 




MOV 


@RO,SREGO ; 




ERROR 


4 ; 


1$: 


MOV 


#15,@RKCS ; 




CLR 


R1 


2$: 


BIT 


#10000, (PRO ; 




BNE 


3$ ; 




INC 


R1 ; 




BNE 


2$ ; 




BR 


4$-2 ; 


3$: 


JSR 


PC.GT3RG ; 




ERROR 


5 ; 




CLR 


R1 


4S: 


BIT 


#100, @R0 ; 




BNE 


TST4 ; 




DELAY 


,11 ; 




INC 


R1 ; 




BNE 


4$ 




MOV 


@RKDS,$REGO ; 




ERROR 


16 



J ***** 
*TEST 



************** 

CHECK THAT 
************** 



SCOPE 
CNT. RE 



MOV 


DRIVAD, ©RKDA 


MOV 


©RKDS.RO 


BIT 


#2000, RO 


BEQ 


1$ 


JSR 


PC.GT3RG 


ERROR 


6 



ADDRESS THE DRIVE UNDER TEST 
CHECK IF ANY BIT OF RKDS IS SET? 
IF SET, BRANCH 
GET RKDS 

RKDS ERROR! RKDS IF ADDRESSED 
CORRECTLY SHOULD BE NON-ZERO 
ISSUE A DRV RESET, IF DRVE 
POWER IS LO, DPL WILL SET 

IS «DPL' BIT SET? 

DPL IS SET, BRANCH 

WAIT FOR SOME TIME TO 

SEE IF DPL WOULD SET 

OK, DPL NOT SET 

GO, GET RKCS, ER . DS 

DPL BIT OF RKDS IS SET. CHECK DRIVE POWER 



DID R/W/S RDY BIT SET? 

;YES, EXIT 

TIME DELAY 

WAIT FOR R/W/S RDY 

GET RKDS 

R/W/S RDY DID NOT SET AFTER 

DRIVE RESET. DRIVE RESET WAS DONE 

TO CHECK 'DPL'BIT . THIS TEST 

IS NOT FOR CHECKING DRIVE RESET. 

U MIGHT WANT TO USE THE TEST PROVIDED 

FOR CHECKING DRIVE RESET. 



DRIVE UNSAFE' IS CLEAR, ' HDEN ' IS SET, 'WPS 1 IS CLEAR 



;G0. DO CONTROL RESET 
;THIS IS A CALL FOR THE 'CNTRL- 
;RESET' ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
;IF THE 'CNTRL RDY' DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
;THE PC -N ERROR MESSAGE IS THE 
;PC WHERE 'CNT. RESET' IS LOCATED. 
;THIS IS A VERY BASIC ERR & IF IT 
;OCCURS GO BACK TO TEST 10 
;SET DRIVt ADDRESS 

;GET RKDS 
;IS 'DRU' BIT OF RKDS SET? 
;NO 

;GO, GET RKCS, ER. DS 
;'DRU' BIT OF RKDS IS SET, CHECK 
;DRIV BY PUTTING RUN/LOAD SW TO LOAD 
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T4 CHECK THAT 'DRIVE UNSAFE' IS CLEAR. 'HDEN' IS SET, 



•WPS' IS CLEAR 



2374 
2375 
2376 
2377 
2378 
2379 
2380 
2381 
2382 
2383 
2384 
2385 
2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 



005402 032700 004000 15: 

005406 001004 

005410 017737 173712 001162 

005416 104007 

005420 032777 000040 173700 2$: 

005426 001403 

005430 004737 020774 

005434 104114 



BIT #4000, Rf. 

BNE 2$ 

MOV @RKDS,$REGO 

ERROR 7 

BIT #40,@RKDS 

BEQ TST5 

JSR PC.GT4RG 

ERROR 114 



THEN BACK TO RUN 

IS 'HDEN' BIT SET? 

YES, BRANCH 

GET RKDS 

ERROR, 'RKOS' BIT IS NOT SET 

IS 'WPS' CLEAR? 

;YES. EXIT 

GET RKCS, ER, DS, DA 

'WPS'-WRITE PROTECT STATUS- BIT OF 

OF RKDS SHOULD BE CLEAR, IF THIS DRIVE 

IS WRITE ENABLED. CHECK & SEE IF THIS 

DRIVE IS WRITE ENABLED. IF IT IS NOT, 

WRITE ENABLE IT. 



005436 000004 
005440 104413 



.. ********************************************* 
;*TEST 5 CHECK THAT 'DRIVE READY 1 IS SET 
..****#**********#*******#********************* 
TST5: SCOPE 

CNT. RESET 



IN RKDS 

************ 



005442 013777 001350 

005450 105777 173652 

005454 100403 

005456 004737 020774 

005462 104010 



MOV 


DRIVAD,@RKDA 


TSTB 


@RKDS 


BMI 


TST6 


JSR 


PC.GT4RG 


ERROR 


10 



GO, DO CONTROL RESET 

THIS IS A CALL FOR THE 'CNTRL- 

RESET' ROUTINE. A CONTROL RESET IS 

ISSUED AND AFTER A CERTAIN TIME 

IF THE 'CNTRL RDY' DOES NOT SET 

AN ERRO? IS REPORTED. NOTE THAT 

THE PC IN ERROR MESSAGE IS THE 

PC WHERE 'CNT. RESET' IS LOCATED. 

THIS IS A VERY BASIC ERR & IF IT 

OCCURS GO BACK TO TEST 10 

ADDRS THE DRIVE 

IS 'DRY' SET? 

;YES, OK 

GO, GET RKCS, ER, DS , DA 

'DRY 1 NOT SET 



***** 



***** 



***** 



;*TEST 6 



005454 
005466 
005474 
005476 
005504 
005506 
005510 
005512 
005520 



000004 
013777 
005001 
032777 
001006 
005201 
001372 
017737 
104011 



001350 173644 



000400 173622 1$: 



173610 001162 



CHECK THAT 'SOK 1 BIT CAN SET 
THIS TEST CHECKS THAT WITHIN A CERTAIN TIME 
;* 'SDK' BIT CAN SET, IF IT DOES NOT AN ERROR IS REPORTED 
********************************************************* 
SCOPE 

;ADDRS THE DRIVE 

; INITIALIZE COUNT FOR TIMING WAIT LOOP 

; IS SOK SET? 

; ;EXIT 

;NO, WAIT 

;WAITED LONG? 

;GET RKDS 

;WAITED LONG BUT 'SEC OK* BIT DID NOT 

;SET 



MOV 


DRIVAD.PRKDA 


CLR 


R1 


BIT 


#400,@RKDS 


BNE 


TST7 


INC 


R1 


BNE 


1$ 


MOV 


<PRKDS,$REGO 


ERROR 


11 



************** 
CHECK THAT 



SECTOR COUNTER' 1 



********************* 
CAN COUNT FROM 0-13 
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CAN COUNT FROM 0- 



13 



2430 








2431 








2432 








2433 








2434 








2435 








2436 








2437 








2438 








2439 








2440 








2441 








2442 








2443 








2444 








2445 


005522 


000004 




2446 


005524 


104413 




2447 








2448 








2449 








2450 








2451 








2452 








2453 








2454 








2455 








2458 


005526 


013777 


001350 


2457 


005534 


013700 


001326 


2458 


005540 


005037 


001356 


2459 


005544 


005005 




2460 








2461 


005546 


012704 


177764 


2462 


005552 


012703 


000001 


2463 








2464 








2465 


005556 


005037 


001360 


2466 








2467 


005562 


005237 


001356 


2468 


0C5566 


001440 




2469 


005570 


005237 


001360 


2470 


005574 


001441 




2471 




i 




2472 


005576 


01 1001 




2473 


005600 


032701 


000400 


2474 


005604 


001771 




2475 


005606 


021001 




2475 


005610 


001362 




2477 


005612 


042701 


177760 


2478 


005616 


001357 




2479 








2480 


005620 


005204 




2481 


005622 


001447 




2482 


005624 


005205 




2483 


005626 


001431 




2484 


005630 


01 1002 




2485 


005632 


032702 


000400 



THIS TEST CHECKS THAT THE SECTOR COUNTER CAN COUNT FROM 
0-13 

1) FIRST, FOR INITIALIZING PURPOSES THERE IS A TIMED LOOP 
DURING WHICH SECTOR COUNTER SHOULD COUNT DOWN TO 0. IF THIS 
IS NOT DONE AN ERROR IS REPORTED 

2) AFTER A COUNT OF IS REAC.ED, THE PROGRAM WAITS 
FOR A CERTAIN TIME, DURING WHICH THE SEC COUNTER 
IS SAMPLED. IF THE COUNTER DOES NOT CHANGE WITHIN THIS 
TIME PERIOD AN ERROR IS REPORTED. 

3) UPON FINDING THAT THE COUNTER HAS CHANGED, IT IS CHECKED 
IF IT INCREMENTED CORRECTLY. IF IT DID NOT AN ERROR IS REPORTED 

4) IF IT INCREMENTED CORRECTLY, THE PROGRAM AGAIN WAITS IN A 
LOOP TILL THE COUNTER CHANGES. (STEPS 2,3.4 ARE REPEATED 
TILL THE COUNTER COUNTS UP TO 13) 

j j*************************************************************** 

TST7: SCOPE 

CNT. RESET ;GO, DO CONTROL RESET 

;THIS IS A CALL FOR THE 'CNTRL- 
;RESET' ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
;IF THE 'CNTRL RDY' DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
;THE PC IN ERROR MESSAGE IS THE 
;PC WHERE 'CNT. RESET 1 IS LOCATED. 
;THIS IS A VERY BASIC ERR & IF IT 
; OCCURS GO BACK TO TEST 10 



3$: 
4$: 



MOV 
MOV 
CLR 
CLR 

MOV 
MOV 



DRIVAD,@RKDA 

RKDS.RO 

INDX1 

R5 

#-14, R4 

#1 ,R3 



INC 


INDX1 


BEQ 


6S 


INC 


INDX2 


BEQ 


7$ 


MOV 


@>R0,R1 


BIT 


#400, R1 


BEQ 


2$ 


CMP 


@R0,R1 


BNE 


1$ 


BIC 


#177760, R1 


BNE 


1$ 


INC 


R4 


BEQ 


TST10 


INC 


R5 


BEQ 


8S 


MOV 


@R0,R2 


BIT 


#400, R2 



INITIALIZE 

'COUNT' - TO TIME 'ERROR 35' 

INITIALIZE 'COUNT' - TO TIME 

'ERROR 36' (WAIT LOOP) 

INITIALIZE 'COUNT' - FOR THE 12 SECTORS. 

R3 CONTAINS THE 'NEXT' COUNT OF SEC-CNTR 

R1 CONTAINS THE 'PREVIOUS 1 COUNT OF SEC-CNTR 

R2 CONTAINS THE 'PRESENT' COUNT OF SEC-CNTR 

INITIALIZE 'COUNT' - TO TIME 

(WAIT LOOP) 'ERROR 34' 

KEEP TIMING FOR 'ERROR 35' 

BRANCH & REPORT ERROR IF WAITED LONG? 

KEEP TIMING FOR 'ERROR 34' 

BRANCH & REPORT ERROR IF WAITED J.ONG? 

GET RKDS 

IS 'SOK' SET? 

NO, WAIT FOR IT TO SET 

MAKE SURE THAT 2 CONSECUTIVE 

READINGS OF SEC-CNTR ARE SAME 

YES, MASK OUT NON-SEC CNTR BITS 

IS IT SECTOR 0, IF NOT LOOP BACK & 

WAIT FOR SECTOR 

KEEP TRACK OF SECTORS CHECKED 

;EXIT.IF ALL SECTORS CHKD 

KEEP TIMING FOR 'ERROR 36' 

BR & REPORT ERROR IF WAITED LONG 

GET RKDS 

IS SOK SET? 
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2466 


005636 


00 1772 




2487 


005640 


021002 




2488 


005642 


001370 




2489 


005644 


042702 


177760 


2490 


005650 


020201 




2491 


005652 


001764 




2492 


005654 


020203 




2493 


005656 


001023 




2494 








2495 


005660 


005203 




2496 


005662 


005201 




2497 


005664 


00500S 




2498 


00S6S6 


000754 




2499 








2500 


005670 


010137 


001162 


2501 


005674 


104012 




2502 








2503 


005676 


000421 




2504 








2505 


005700 


017737 


173432 


2506 


005706 


104011 




2507 








2503 


005710 


000414 




2509 








2510 


005712 


010237 


00116§ 


2511 


005716 


010337 


001164 


2512 


005722 


104013 




2513 








2514 








2515 


005724 


000406 




2516 








2517 


005726 


010337 


001162 


2518 


005732 


010237 


001164 


2519 


005736 


104014 




2520 








2521 








2522 


005740 


000747 




2523 








2524 








2525 








2526 








2527 








2528 








2529 








2530 


005742 


000004 




2531 


005744 


104413 




2532 








2533 








2534 








2535 








2536 








2537 








2538 








2539 








2540 








2541 


005746 


013704 


001350 
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T7 CHECK THAT 'SECTOR COUNTER' CAN CQUNT FROM 0-13 

NO, WAIT FOR SDK 

MAKE SURE THAT 2 CONSECUTIVE 

READINGS OF SEC-CNTR ARE SAME 

MASK NON-SEC-CNTR BITS 

HAS SEC CNTR INCREMENTED? 

NO, WAIT FOR IT TO CHANGE 

YES. DID IT INCREMENT CORRECTLY? 

NO - REPORT ERROR 



SEO ©047 



B$t 



001162 7$: 



as i 



BEQ 


4$ 


CMP 


gsRO.RS 


BNE 


4$ 


BIC 


(¥177760, R2 


CMP 


R2.R1 


BEO 


4$ 


CMP 


R2.R3 


BNE 


9$ 


INC 


R3 


INC 


R1 


CLR 


R5 


BR 


3S 


MOV 


R1,$REQ0 


ERROR 


12 


BR 


TST10 


MOV 


#»RKDS,$R£GO 


ERROR 


11 


BR 


TST10 


MOV 


R2,SREGQ 


MOV 


R3.SREG1 


ERROR 


13 



MOV R3.SREG0 
MOV R2.SREG1 
ERROR 14 



INCREMENT "NEXT COUNT" 
INCREMENT "PREVIOUS COUNT" 
INITIALIZE AGAIN FOR TIMING « ERROh 
GO A CHECK THE NEXT SECTOR COUNT 

GET 'SEC CNTR' 

WAITED LONG, BUT SECTOR COUNTER 

DID NOT COUNT TO 

lEXIT 



GET RKDS 
WAITED LONG, 
NOT SET 
;EXIT 



BUT «SQK' BIT DID 



GIT SEC CNTR (PRESENT COUNT) 

GET "NEXT COUNT" 

WAITED LONG, BUT THE SECTOR 

COUNTER DID NOT INCREMENT FROM 

THE PRESENT COUNT TO THE NEXT COUNT 

;EXIT 

GET "NEXT COUNT' (SEC CNTR SHOULD BE THIS) 
GET PRESENT COUNT (WHAT SEC CNTR WAS) 
SEC CNTR INCREMENTED WRONG, DID 
NOT INCREMENT FROM PRESENT CQUNT 
TO NEXT COUNT 



S*TEST 10 CHECK THAT SC^SA CAN BE GENERATED 

;* THIS TEST CHECKS THAT SC = SA CAN BE GENERATED FOR 
;* EVERY SECTOR 

TST10! SCOPE 

CNT. RESET ; GO , DO CONTROL RESET 

• r THIS IS A CALL FOR THE 'CNTRL- 
;RESET' ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
;IF THE 'CNTRL RDY' DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
;THE PC IN ERROR MESSAGE IS THE 
;PC WHERE 'CNT. RESET' IS LOCATED. 
;THIS IS A VERY BASIC ERR & IF IT 
; OCCURS GO BACK TO TEST 10 

MOV DRIVAD.R4 
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SEQ 0048 



2542 


005752 


013700 


001326 


2543 


005756 


01 2703 


177764 


2544 


005762 


010477 


173352 


2545 


005766 


005005 




2546 


005770 


005205 




2547 


005772 


001410 




2548 


005774 


01 1001 




2549 


005776 


032701 


000020 


2550 


006002 


001772 




2551 


006004 


005204 




2552 


006006 


005203 




2553 


006010 


001364 




2554 


006012 


000406 




2555 








2556 


006014 


110437 


001162 


2557 


006020 


010137 


001164 


2558 


006024 


104015 




2559 








2560 


006026 


000766 




2561 








2562 








2563 








2564 








2565 


006030 


000004 




2566 


006032 


104413 




2567 


006034 


013777 


001350 


2568 


006042 


005001 




2569 


006044 


017700 


173256 


2570 


006050 


032700 


000100 


2571 


006054 


001007 




2572 


C06056 


005201 




2573 


006060 


001376 




2574 


006062 


005201 




2575 


C06364 


001367 




2576 


006366 


010037 


001162 


2577 


006072 


104016 




2578 


006074 


032700 


001000 


2579 


006100 


001403 




2580 


006102 


004737 


020774 


2581 


006106 


104001 




2582 








2583 








2584 








2585 








2586 








2587 








2588 








2589 








2590 








2591 








2592 








2593 








2594 








2595 








2596 








2597 


006110 


000004 







MOV 


RKDS,R0 




MOV 


#-14, R3 


1$: 


MOV 


R4,@RKDA 




CLR 


R5 


2$: 


INC 


R5 




BEQ 


3$ 




MOV 


@R0,R1 




BIT 


#20, R1 




BEQ 


2$ 


4$; 


INC 


R4 




INC 


R3 




BNE 


1$ 




BR 


TST11 


3$: 


MOVB 


R4.SREG0 




MOV 


R1 ,SREG1 




ERROR 


15 



INITIALIZE COUNT FOR # OF SECTORS 

ADDRESS THE DRIVE 

INITIALIZE COUNT - FOR TIMING ERROR 

KEEP TIMING FOR ERROR 

REPORT ERROR IF WAITED LONG 

GET RKDS 

IS SC=SA SET? 

NO, WAIT FOR IT 

ADDRS THE NEXT SECTOR 

ARE ALL SECTORS CHECKED FOR SC=SA 

NO, GO & CHECK NEXT 

;YES, EXIT 

GET SECTOR ADDRESS 

GET RKDS 

COULD NOT GET SC=SA FOR THIS 

'SECTOR ADDRESS' 

GO CHK FOR THE REST 



West n check that 'r/w/s rdy 1 



'SIN' IS CLEAR 
***************** 



1$: 



SCOPE 




CNT. RESET 


MOV 


DRIVAD,@RKDA 


CLR 


R1 


MOV 


@RKDS,RO 


BIT 


#100, RO 


BNE 


2$ 


INC 


R1 


BNE 


3$ 


INC 


R1 


BNE 


1$ 


MOV 


RO,SREGO 


ERROR 


16 


BIT 


#1000, RO 


BEQ 


TST12 


JSR 


PC.GT4RG 


ERROR 


1 



TST12: 



;G0, DO CONTROL RESET 
?ADDRESS THE DRIVE 

;GET RKDS 

; IS R/W/S RDY SET? 

;YES. BRANCH 

; INCREASE LOOP TIME 

;FOR DRIVE RESET OF HEADS 

; WAITED LONG ENOUGH? 

; IF NOT LUP BAK & WAIT 

;GET RKDS 

; R/W/S RDY SHOULD BE SET 

;IS SIN CLEAR? 

;;YES, EXIT 

;GET RKCS.ER.DS.DA 

;'SIN' SHOULD HAVE BEEN CLEAR 

;IT WAS NOT CLEAR 

;NEXT TEST IS GOING TO CHECK 

; DRIVE RESET, SIN SHOULD BE 

;CLEARED THEN. IT WILL BE CHECKED 

1THERE. 



12 CHECK 'DRIVE RESET 1 

"THIS TEST CHECKS THE VERY BASIC DRIVE RESET LOGIC. 
:*SINCE THE HEADS ARE AT CYLINDER (GOING INTO THIS 
;*TEST) DRIVE RESET RETRACTS THEM BACK BEYOND CYLINDER 0, 
:*AFTER WHICH THEY ARE PUSHED FORWARD TO CYLINDER AGAIN. 
:*IN THE LATER PART OF THIS PROGRAM THERE IS A DRIVE RESET 

*TEST WHICH DOES THE RESET FROM LAST CYLINDER. 

SCOPE 
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2598 
2599 
2600 
2601 
2602 
2603 
2604 
2605 
2606 
2607 
2608 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 
2639 
2640 
2641 
2642 
2543 
2644 
2645 
2645 
2647 
2648 
2649 
2650 
2651 
2652 
2653 



006112 104413 



006114 
006120 
006122 
006130 
006134 



013700 
005004 
013777 
012710 
104412 



006234 

006236 
006244 
006250 



001350 
000015 



177776 
000100 



2$: 
173154 6$: 



006136 104021 



006140 012705 

006144 032777 

006152 001402 

006154 000137 

006160 005204 

006162 001370 

006164 005205 

006166 001366 

006170 004737 

006174 104026 



006176 032777 001000 173122 3$: 

006204 001403 

006205 004737 020774 
006212 104001 

006214 032710 140000 5$: 

006220 001403 

006222 004737 020774 

006226 104022 



006230 022710 000214 



001406 
012737 
01 1037 
104024 



000214 
001164 



MOV 


RKCS.RO 


CLR 


R4 


MOV 


DRIVAD.PRKDA 


MOV 


#15,@R0 


CHKCRDY 





MOV 


#-2,R5 


BIT 


#100,@RKDS 


BEO 


.+6 


JMP 


3$ 


INC 


R4 


BNE 


6$ 


INC 


R5 


BNE 


6$ 


JSR 


PC.GT4RG 


ERROR 


26 


BIT 


#100Q,@'RKDS 


BEQ 


5$ 


JSR 


PC.GT4RG 


ERROR 


1 


BIT 


#140000, @>R0 


BEO 


4$ 


JSR 


PC.GT4RG 


ERROR 


22 


CMP 


#214, @R0 


BEO 


TST13 


MOV 


#214,$REG0 


MOV 


@R0,$REG1 


ERROR 


24 



GO, DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERROk IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERR & IF IT 
OCCURS GO BACK TO TEST 10 

INITIALIZ COUNT - TO TIME ERROR 

ADDRESS THE DRIVE 

'DRIVE RESET' , GO 

GO CHECK IF CONTROL RDY IS SET 

IF SO, SKIP THE EROR MESSAGE. 

CNTRL RDY DID NOT SET AFTER 

SENDING CYL ADDR TO THE DRIV. 

'ADD ACK' SHOULD HAVE COME BACK 

FROM DRIVE, THEREUPON SETTING ' CH RDY 1 

SET UP DELAY COUNTER 

CHECK FOR R/W/S READY 



GO, GET RKCS, ER. DS. DA 
R/W/S RDY DID NOT SET AFTER 
DRIVE RESET 

DID SIN SET? 

NO, BRANCH 

GO, GET RKCS.ER.DS.DA 

SIN SET, AFTER A 

DRIVE RESET. 

WAS 'ERR' BIT OR "HE« BIT SET? 

NO 

GO, GET RKCS, ER, DS , DA 

'ERR' OR 'HE' BIT SET WHILE DOING 

DRIVE RESET 

DOES RKCS STILL CONTAIN THE 

'DRIV RES' BITS 

;YES. EXIT 

GET EXPCTD RKCS 

GET RKCS, RECVD 

NO - RKCS SHOULD CONTAIN THE 'DRIV 

FUNCTIGN, ERROR IF DIFFERENT. 



fTEST 13 CHECK 'SEEK' TO CYLINDER 

;* THIS TEST CHECKS THE SEEK LOGIC DOING SEEK TO CYLINDER 0. 

;* NOTE THAT SINCE THE HEADS ARE ALREADY ON CYLINDER 0, NO 

;* HEAD MOVEMENT IS INVOLVEDN AND THE STRESS IS ON THE BASIC SEEK 

;* LOGIC. 
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2654 








2655 


006252 


000004 




2656 


006254 


104413 




2657 








2658 








2659 








2660 








2661 








2662 








2663 








2664 








2665 








2666 


006256 


104421 




2667 








2668 


006260 


013700 


001332 


2669 


006264 


013777 


001350 173046 


2670 








2671 


006272 


012710 


000011 


2672 


006276 


104412 




2673 








2674 


006300 


104021 




2675 








2676 








2677 








2678 


006302 


005005 




2679 


006304 


032777 


000100 173014 


2680 


006312 


001005 




2681 


006314 


005205 




2682 


006316 


001372 




2683 


006320 


004737 


020774 


2684 


006324 


104026 




2685 


006326 


032777 


001000 172772 


2686 


006334 


001403 




2687 


006336 


004737 


020774 


2688 


006342 


104001 




2689 








2690 








2691 








2692 








2693 


006344 


032710 


140000 


2694 


006350 


001403 




2695 








2696 


006352 


004737 


020774 


2697 


006356 


104022 




2698 








2699 


006360 


005777 


172744 


2700 


006364 


001403 




2701 


006368 


004737 


021002 


2702 


006372 


104023 




2703 








2704 


006374 


022710 


000210 


2705 


006400 


001406 




2706 


006402 


012737 


000210 001162 


2707 


006410 


01 1037 


001 164 


2708 


006414 


104024 




2709 









********** 



SCOPE 
CNT. RESET 



MOV RKCS.RO 

MOV DRIVAD,@RKDA 



MOV #11. ©RO 
CHKCRDY 



CLR 


R5 


BIT 


#100,@RKDS 


BNE 


3$ 


INC 


R5 


BNE 


2$+2 


JSR 


PC.GT4RG 


ERROR 


26 


BIT 


#1000,@RKDS 


BEO 


6$ 


JSR 


PC.GT4RG 


ERROR 


1 



BIT 

BEO 



JSR 

ERROR 



#140000, PRO 
4S 



PC.GT4RG 
22 



TST IPRKER 

BEO 5$ 

JSR PC.GT3RG 

ERROR 23 



CMP 
BEQ 
MOV 
MOV 
ERROR 



#210, PRO 

TST14 

#210,$REG0 

PR0.SREG1 

24 



GO, DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET 1 ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERR & IF IT 
OCCURS GO BACK TO TEST 10 
GO CHECK IF SIN SET. IF SET 
A DO DRIVE RESET TO CLEAR T .T 

ADDRESS THE DRIVE 

'SEEK' GO 

GO CHECK IF CONTROL RDY IS SET 

IF SO, SKIP THE EROR MESSAGE. 

'CNTRL RDY' DID NOT SET AFTER SENDING 

CYL ADDR TO THE DRIVE, 'ADD ACK' 

SHOULD HAVE COME BACK FROM THE 

DRIVE, THEREUPON SETTING 'CNTRL RDY 1 

DID R/W/S RDY BIT SET? 

YES, BRANCH 

WAITED LONG ENOUGH? 

IF NOT, LUP BAK & WAIT 

GO, GET RKCS, ER, DS, DA 

R/W/S RDY DID NOT SET AFTER SEEK 

DID SIN SET? 

NO, BRANCH 

GO, GET RKCS.ER.DS.DA 

SIN SET ON DOING SEEK 

TO CYL NOTE THIS IS THE 

FIRST TIME THE HEADS HAVE 

BEEN MOVED 

WAS 'ERR 1 OR 'HE' BIT SET? 



GO, GET RKCS, ER, DS, DA 

'ERR' OR 'HE'- BIT SET WHILE DOING 'SEEK' 

WAS ANY BIT IN RKER SET? 

NO 

GO, GET RKCS, ER. DS 

RKER SHOWS AN ERROR BIT, CHECK 

DOES RKCS STILL CONTAIN 'SEEK' FUNCTION 

;YES. EXIT 

GET EXPCTD RKCS 

GET RKCS RECVD 

NO, RKCS SHOULD BE STILL CONTAINING 

'SEEK' FUNCTION ERROR - IF IT CHANGED 
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2710 

2711 

2712 

2713 

2714 

2715 

271S 

2717 

2718 

2719 

2720 

2721 

2722 

2723 

2724 

2725 

2726 

2727 

2728 

2729 

2730 

2731 

2732 

2733 

2734 

2735 

2736 

2737 

2733 

2739 

2740 

2741 

2742 

2743 

2744 

2745 

2746 

2747 

2748 

2749 

2750 

2751 

2752 

2753 

2754 

2755 

2756 

2757 

2758 

2759 

2760 

2761 

2762 

2763 

2764 

2765 



00S416 
006420 



000004 
104413 



006422 104421 



006424 
006430 

006432 
006434 
006442 
006450 
006454 
006462 
006466 
006470 
006472 
006474 
006500 



CNT. RESET 



004737 
10402-6 

005005 
013777 
052777 
013701 
012777 
032711 
001405 
005205 
100373 
004737 
104025 



001350 
000100 
001326 
000011 
000100 



172676 
172670 



14 CHECK R/W/S RDY IS CLEAR WHEN HEADS ARE IN MOTION 
•*THIS TEST CHECKS THAT R/W/S DOES GET CLEARED 
*WHEN THE HEADS ARE IN MOTION. SINCE 'MOVE L' ON 
*M7700 (RK05) GENERATES THIS SIGNAL, ABSENCE OF 
*R/W/S RDY-CLEAR COULD MEAN A FAULT ON M7702 
;*WHERE 'MOVE L' IS GENERATED. 

;*NOTE THIS IS THE FIRST TIME HEADS ARE MADE TO MOVE BY SEEKING 
*TO CYLINDER 2. 
*********************** ********************** #**************•* 
4 5 SCOPE 

J GO, DO CONTROL RESET 

;THIS IS A CALL FOR THE 'CNTRL- 

;RESET' ROUTINE. A CONTROL RESET IS 

•.ISSUED AND AFTER A CERTAIN TIME 

;IF THE 'CNTRL RDY' DOES NOT SET 

;AN ERROR IS REPORTED. NOTE THAT 

;THE PC IN ERROR MESSAGE IS THE 

;PC WHERE 'CNT. RESET' IS LOCATED. 

;THIS IS A VERY BASIC ERR & IF IT 

;OCCURS GO BACK TO TEST 10 

;GO CHECK IF SIN IS SET 

;IF SET DO DRV-RESET TO CLR IT 

;MAKE SURE HEADS R ON' CYL 

; R/W/S R?Y DIDN'T SET 

; AFTER THE ABOVE DRV RESET 



;SEEK CYLINDER 2 

;SEEK, GO 

;DID R/W/S RDY CLR? 

;YES, BRANCH 



006502 
006506 



004737 
104016 



TST.SIN 




JSR 


PC.DRESET 


ERROR 


26 


CLR 


R5 


MOV 


DRIVAD,@RKDA 


BIS 


#100,@RKDA 


MOV 


RKDS.R1 


MOV 


#11 ,@RKCS 


BIT 


#100, »R1 


BEQ 


2S 


INC 


R5 


BPL 


1$ 


JSR 


PC.GT3R6 


ERROR 


25 


JSR 


PC.TSTRWS 


ERROR 


16 



J R/W/S RDY WAS NOT CLEAR WHEN HEADS 
;WERE SEEKING TO CYLINDER 2 

GO, WAIT FOR -R/W/S RDY TO SET 
R/W/S RDY DID NOT SET AFTER SEEK 
WAS TRIED TO CYLINDER 2 (ABOVE). 
NOTE THIS WAS THE FIRST TIME A SEEK 
WAS TRIED TO A CYLINDER OTHER THAN 
0. 



;*TEST 15 CHECK 'WRITE' FORMAT FUNCTION-CYLINDER 0, SECTOR 
THIS TEST CHECKS THE LOGIC INVOLVED IN THE WRITE FMT 
FUNCTION. ON ISSUING A WRT FMT, THE FOLLOWING IS CHECKED 

1) CNTRL RDY WAS CLEARED AS GO WAS SET. 

2) CNTRL RDY SETS WITHIN A CERTAIN TIME ON COMPLETION OF FUNCTION 



MD-11-CZRKKF, RK1 1 BASIC 


: LOGIC TEST 2 


CZRKKF. 


P11 21-FEB-78 


08:51 


2766 








2767 








276B 








2769 








2770 








2771 








2772 








2773 








2774 








2775 


006510 


000004 




2776 


006512 


104413 




2777 








2778 








2779 








2780 








2781 








2782 








2783 








2784 








2785 








2786 


006514 


104421 




2787 








2788 


006516 


012703 


033342 


2789 








2790 








2791 








2792 








2793 








2794 








2795 








2796 








2797 








2798 








2799 








2800 








2801 








2802 


006522 


012700 


000001 


2803 








2804 


006526 


010023 




2005 


005530 


01 0013 




2806 


006532 


005423 




2807 


006534 


005200 




2808 


006536 


022700 


000200 


2809 


006542 


001371 




2810 


006544 


005023 




2811 


006546 


012713 


125252 


2812 








2813 


006552 


012703 


033342 


2814 


006556 


01 3701 


001332 


2815 


006562 


013702 


001336 


2816 


006566 


010312 




2817 


006570 


012777 


177400 172536 


2818 


006576 


013777 


001350 1725?-''' 


2819 


006604 


012711 


002003 


2820 








2821 


006610 


105711 
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T15 CHECK 'WRITE' FORMAT FUNCTION-CYLINDER 0, SECTOR 

IF 'HE' OR 'ERR' BIT SET? 

IF RKDA INCREMENTED CORRECTLY FROM TO 1? 
IF RKWC OVERFLOWED CORRECTLY TO 0? 
IF RKBA INCREMENTED CORRECTLY BY 2? 
IF ANY BIT IN RKER SET? 

IF THE 'WRT FMT' FUNCTION uITS ARE STILL IN THE RKCS? 
*NOTE THAT ONE WORD '125252' WAS WRITTEN ON SECTOR 
*0 & IT WILL BE CHECKED IN THE NEXT TESTS. 
********************************************************** 
SCOPE 
CNT. RESET ;GO, DO CONTROL RESET 

THIS IS A CALL FOR THE 'CNTRL- 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY* DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET 1 IS LOCATED. 
THIS IS A VERY BASIC ERR 6 IF IT 
OCCURS GO BACK TO TEST 10 
TST.SIN ;GO CHECK- IF SIN IS SET 

IF SET, DO DRIVE RESET TO CLR IT 



SEO 0052 



MOV 



#QUTBUF,R3 



THIS CODE SETS 


UP A 256 WORD BUFFER 


WHICH WILL BE 


USED TO 


WRITE 1 SECTOR 


ON THE DISK 






1ST WORD 


000001 




2ND WORD 


177777 


2'S COMPLEMENT 


3RD WORD 


000002 


OF ABOVE 


4TH WORD 


177776 




253RD WORD 


000177 




254TH WORD 


177601 




255TH WORD 


000000 




256TH WORD 


125252 





MOV 


R0,(R3)+ 


MOV 


R0,(R3) 


NEG 


<R3) + 


INC 


RO 


CMP 


#200, RO 


BNE 


9$ 


CLR 


(R3) + 


MOV 


#125252, @R3 


MOV 


#0UTBUF,R3 


MOV 


RKCS.R1 


MOV 


RKBA.R2 


MOV 


R3,@R2 


MOV 


#~400, ©RKWC 


MOV 


DRIVAD,£>RKDA 


MOV 


#2003, M1 



;SET COUNT 

;SET UP DATA WORDS 



;SET 255TH WORD TO 
;SET 256TH WORD 



;RESET POINTER TO OUTBUF 



FROM HERE-SET UP CURRENT ADDRESS 

SET UP WORD COUNT 400 WORDS 

SET UP DISK ADDRS, SECTOR 0, CYLINDER 

WRITE FORMAT, GO 

;WAS 'CNTRL RDY 1 CLEARED AS GO WAS SET? 



MD-1 1-CZRKKF, RK11 BASIC LOGIC TEST 2 
CZRKKF.P11 21-FEB-78 08:51 



2822 
2823 
2824 
2825 
2826 
2827 
2828 
2829 
2830 
2831 
2832 
2833 
2834 
2835 
2836 
2837 
2838 
2839 
2840 
2841 
2842 
2843 
2844 
2845 
2846 
2847 
2848 
2849 
2850 
2851 
2852 
2853 
2854 
2855 
2856 
2857 
2858 
2859 
2860 
2861 
2862 
2863 
2864 
2E65 
2866 
2867 
2868 
2669 
2870 
2871 
2872 
2873 
2874 
2875 
2876 
2877 



006612 100003 

006614 004737 021002 

006620 104030 

006622 005000 

006524 105711 

006626 100411 

006630 005200 

006632 001374 

006634 004737 020774 

006640 013737 001350 

006646 104416 

006650 104031 

006652 004737 021234 

006656 104032 



006660 

006664 



004737 
104033 
004737 



021262 



006672 104034 



006674 
006700 
006702 
006710 
006714 



022712 
001406 
012737 
01 1237 

104035 



034342 
001164 



006716 004737 021342 



006722 104036 



006724 
006730 
006732 
006740 
006744 



022711 
001406 
012737 
01 1137 
104024 



002202 
001164 



BPL 


2$ 


JSR 


PC.GT3RG 


ERROR 


30 


CLR 


RO 


TSTB 


@R1 


BMI 


3$ 


INC 


RO 


BNE 


2$+2 


JSR 


PC.GT4RG 


MOV 


DRIVAD.SREG1 


BRKDA4 





PC.CHKHE 
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T15 CHECK 'WRITE' FORMAT FUNCTION-CYLINDER 0, SECTOR 

;YES, BRANCH 

;G0, GET RKCS, ER. DS 

; 'CNTRL RDY ' DIDN'T CLEAR AS GO 

;WAS SET TO 'WRITE FORMAT' 

;WAS 'CNTRL RDY' SET ON COMPLETION OF WRITE? 

;YES, BRANCH 

;N0, HAVE U WAITED LONG ENOUGH? 

;IF NOT, LOOP BACK & WAIT 

; IF YES, REPORT ERROR 

;G0. GET RKCS, ER. DS.DA 

GO TO 'BDA4' & BREAK CONTENTS OF 

SREG10 INTO DR # ,CYL , SUR , STC BITS 

'CNTRL RDY' DIDN'T SET ON COMPLETION 

OF WRITE FORMAT 

WRT FMT WAS DONE STARTING AT <DSK-ADRES> 

INDICATED IN EROR MSGE. 

GO CHECK IF 'HE' OR 'ERR' BIT SET. 

IF YES, SAVE RKCS, ER, DS, DA. 

RETURN HERE IF ERROR. 

'HE' OR 'ERR' BIT SET WHILE DOING 

A WRITE FORMAT 

WRT FMT WAS DONE STARTING AT <DSK-ADRES> 

INDICATED IN EROR MSGE. 

GO CHECK IF RKDA INCREMENTED CORRECTLY 

IF NOT, RETURN HERE. 

RKDA SHOULD HAVE INCREMENTED BY 

1 SECTOR, IT DID NOT 

CHECK IF WORD COUNT OVERFLOWED, IF 

NOT RETURN HERE. 

RKWC DID NOT OVERFLOW TO 0, AFTER 

XFER ON WRITE FORMAT 

:DID RKBA INCREMENT CORRECTLY? 
YES, BRANCH 
iO ;GET EXPCTD RKBA 
GET ACTUAL RKBA 

RKBA DIDN'T INCREMENT BY 1000 AFTER 
WRITE FORMAT OF 400 WORDS 
CHECK IOF ANY BIT IN RKER SET, 
IF YES RETURN HERE. 
RKER BIT SET ON DOING 1 WORD 
WRITE FORMAT 

DOES RKCS STILL HAVE 'WRT FMT' BITS? 
;YES, EXIT 
GET EXF-JTD RKCS 
GET ACTUAL RKCS 

RKCS DIDN'T CONTAIN 'WRT FMP BITS 
AFTER THE FUNCTION WAS COMPLETED 



CHECK 'READ FORMAT' FUNCTION-CYLINDER 0. SECTOR 
*=THIS TEST CHECKS THE LOGIC INVOLVED IN THE WRITE FMT 
^FUNCTION. ON ISSUING A WRT FMT, THE FOLLOWING IS CHECKED 
M) CNTRL RDY WAS CLEARED AS GO WAS SET. 
*2) CNTRL RDY SETS WITHIN A CERTAIN TIME ON COMPLETION OF FUNCTION 



dSR 


PCCHKDA ; 


ERROR 


33 ; 


JSR 


PC.CHKWC ; 


ERROR 


34 ; 


CMP 
BEQ 
MOV 
MOV 
ERROR 


#0UTBUF+1000,@R2 
7$ ; 
#OUTBUF+100Q,$REC 
@R2,$REG1 ; 
35 ; 


JSR 


PC.CHKER ; 


ERROR 


36 ; 


CMP 
BEQ 
MOV 
MOV 
ERROR 


#2202, @R1 ; 
TST16 ; 
#2202,$REG0 ; 
(PR1.SREG1 ; 
24 ; 



006746 
006750 

006752 



MD-1 1-CZRKKF, 
CZRKKF.P11 

2878 
2879 

2880 
2881 
2882 
2883 
2884 
2885 
2886 
2887 



2889 
2890 
2891 
2892 
2393 
2894 
2895 
2896 
2897 
2898 
2899 
2900 
2901 
2902 
2903 
2904 
2905 
2906 
2907 
2908 
2909 
2910 
2911 
2912 
2913 
2914 
2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 



RK11 BASIC LOGIC TEST 2 
21-FEB-78 03:51 
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T16 CHECK 'READ FORMAT 1 FUNCTION-CYLINDER 0, SECTOR 



SEO 0054 



006754 104421 



006756 
006762 
006766 
006772 

006774 
007002 
007010 

007014 
007016 
007020 
007024 

007026 
007030 

007032 
007034 

007036 

007040 
007044 
007052 



013701 
013702 
01 2703 
010312 



000004 
005000 
104413 



001332 
001336 
033342 



012777 177777 172332 
013777 001350 172330 
012711 002005 

105711 

100003 

004737 021002 

104030 

005000 
10571 1 

10041 1 
005200 
001374 

004737 020774 

013737 001350 00l20f 

104416 



007054 104045 



IF 'HE' OR 'ERR' BIT SET? 

IF RKDA INCREMENTED CORRECTLY FROM TO 1? 

IF RKWC OVERFLOWED CORRECTLY TO 0? 

IF RKBA INCREMENTED CORRECTLY BY 2? 

IF ANY BIT IN RKER SET? 

IF THE CORRECT HEADER WAS RECEIVED? 

FOR RK11C, AFTER RD FMT RKDB CONTAINS THE CHECKSUM 
FOR THAT SECTOR. (125252 IN THIS CASE, BECAUSE THE 
FIRST WORD IN SEC WAS WRITTEN AS 125252 IN 
THE PREVIOUS TEST) 

10) FOR RK11D, AFTER RD FMT RKDB SHOULD CONTAIN 
A ZERO 

11) IF THE RD FMT FUNCTION BITS ARE STILL IN 
THE RKCS? 

SCOPE 

CLR RO 

CNT. RESET ; GO , DO CONTROL RESET 

;THIS IS A CALL FOR THE 'CNTRL- 
;RESET' ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
;IF THE 'CNTRL RDY' DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
;THE PC IN ERROR MESSAGE IS THE 
;PC WHERE 'CNT. RESET' IS LOCATED. 
;THIS IS A VERY BASIC ERR & IF IT 
; OCCURS GO BACK TO TEST 10 
;G0 CHECK IF SIN IS SET 
;IF SET, DO DRIVE RESET TO CLR IT 



SETUP ADRS WHERE HEADER WORD IS TO BE 

X-FERRED 

SET UP WORD COUNT 

SET UP DISK ADRS. SECTOR 0, CYLINDER 

READ FORMAT, GO 

WAS 'CNTRL RDY 1 CLEARED AS GO WAS SET? 

YES. BRANCH 

GO, GET RKCS, RKER 

CNTRL RDY DIDN'T CLEAR AS GO WAS 

SET TO 'READ FORMAT' 

WAS 'CNTRL RDY' SET ON COMPLETION OF 

TRANSFER 

YES, BRANCH 

NO, HAVE U WAITED LONG ENOUGH? 

IF NOT, LOOP BACK & WAIT 

IF YES, REPORT ERROR 

GO, GET RKCS, ER. DS.DA 

GO TO 'BDA4 1 & BREAK CONTENTS OF 
5REG10 INTO DR U .CYL, SUR , S C C BITS 
'CNTRL RDY' DIDN'T SET ON COMPLETION 
OF READ FORMAT 



TST.SIN 




MOV 
MOV 
MOV 
MOV 


RKCS.R1 
RKBA,R2 
#0UTBUF,R3 
R3.PR2 


MOV 
MOV 

MOV 


#-1 f @RKWC 
DRIVAD,@RKDA 
#2005, @R1 


TSTB 
BPL 

JSR 
ERROR 


§>R1 

2$ 

PC.GT3RG 

30 


CLR 
TSTB 


RO 
@R1 


BMI 
INC 
BNE 


3$ 
RO 
2$+2 


JSR 

MOV 
BRKDA4 


PC.GT4RG 
DRIVAD.SREG10 
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T16 CHECK 'READ FORMAT' FUNCTION-CYLINDER 0, SECTOR 



2934 

2935 
2936 
2937 
2938 
2939 
2940 
2941 
2942 
2943 
2944 
2945 
2946 
2947 
2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 
2959 
2960 
2961 
2962 
2963 
2964 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
2972 
2973 
2974 
2975 
2976 
2977 
2978 
2979 
2980 
2981 
2982 
2983 
2984 
2985 
2986 
2987 
2988 
2989 



007056 004737 021234 

007062 104046 

007064 004737 021262 

007070 104040 

007072 004737 021316 

007076 104041 



007100 
007104 
007106 
007114 
007120 



022712 
001406 
012737 
01 1237 
104042 



033344 001162 
001164 



007122 004737 021342 



007126 104036 



007130 005713 



007132 001407 

007134 005037 

007140 005037 

007144 011337 

007150 104043 

007152 022711 

007156 001406 

007160 012737 

007166 011137 

007172 104024 



001162 
001164 
001166 



002204 001162 
001164 



JSR PCCHKHE 
ERROR 46 



READ FMT WAS DONE STARTING AT <DSK-ADRES> 

INDICATED IN EROR MESGE 

CHECK IF 'ERR' OR 'HE' BIT SET, IF 

YES RETURN HERE. 

'HE' OR 'ERR' BIT SET WHILE 

DOING A 'READ FORMAT' 

READ FMT WAS DONE STARTING AT <DSK-ADRES> 

INDICATED IN EROR MESGE 

CHECK IF RKDA INCREMENTED CORRECTLY 

IF NOT, RETURN HERE. 

RKDA SHOULD HAVE INCREMENTED 

BY 1 SECTOR, IT DID NOT 

CHECK IF RKWC OVERFLOWED TO 0, IF 

NOT RETURN HERE. 

RKWC DID NOT OVERFLOW TO 

AFTER XFER ON READ FORMAT 

DID RKBA INCREMENT TO NXT WORD ADDRS? 

YES, BRANCH 

GET EXPCTD RKBA 

GET ACTUAL RKBA 

RKBA DIDN'T INCREMENT BY 2 AFTER 

'READ FORMAT' OF 1 WORD 

CHECK IF ANY BIT IN RKER SET. IF 

YES RETURN HERE. 

RKER BIT SET ON DOING 

1 WORD READ FORMAT 

DOES OUTBUF CONTAIN THE HEADER 

WORD-0 

YES, BRANCH 

GET SECTOR NO. 

EXPCTD HEADER 

GET HEADER RECVD 

CORRECT HEADER WORD-0-WAS 

NOT RECEIVED ON READ FORMAT 

DOES RKCS HAVE THE ' RDFMT' BITS? 

;YES, BRANCH 

GET EXPCTD RKCS 

GET ACTUAL RKCS 

RKCS DIDN'T CONTAIN ' RD FMT' 

BITS AFTER FUNCTION WAS 

COMPLETED 



CHECK 'READ' FUNCTION-CYLINDER 0, SECTOR 
*THIS IS THE FIRST TIME A PURE READ IS PREFORMED IN THIS 
*TEST SEQUENCE. THE FOLLOWING IS CHECKED 
*1) CNTRL RDY CLEARS AS GO IS SET 

*2) CNTRL RDY SETS WITHIN A CERTAIN TIME ON COMPLETION 
*OF FUNCTION 

♦3) IF 'HE' OR 'ERR 1 BIT SET? 
*4) IF RKDA INCREMENTED CORRECTLY? 
*5) IF RKWC OVERFLOWED TO 0? 
*6) IF RKBA INCREMENTED CORRECTLY? 



JSR 


PC.CHKDA 


ERROR 


40 


JSR 


PC.CHKWC 


ERROR 


41 


CMP 
BEQ 
MOV 
MOV 
ERROR 


0OUTBUF+2,$R2 

7$ 

#QUTBUF+2,$REG0 

SPR2,$REG1 

42 


JSR 


PC.CHKER 


ERROR 


36 


TST 


@R3 


BEQ 
CLR 
CLR 
MOV 
ERROR 


9$ 

SREGO 

$REG1 

@R3,$REG2 

43 


CMP 
BEQ 
MOV 
MOV 
ERROR 


#2204, PR1 
TST17 

#2204, SREGO 
@>R1 ,$REG1 
24 



MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2 
C2RKKF.P11 21-FEB-78 08:51 



2990 








2991 








2992 








2993 








2994 








2995 


007174 


000004 




2996 


007176 


104413 




2997 








2998 








2999 








3000 








3001 








3002 








3003 








3004 








3005 








3006 


007200 


104421 




3007 








3008 


007202 


013701 


001332 


3009 


007206 


005000 




3010 


007210 


013702 


001336 


3011 


007214 


012703 


033342 


3012 


007220 


010312 




3013 








3014 


007222 


012777 


177400 172104 


3015 


007230 


013777 


001350 172102 


3016 


007236 


012711 


000005 


3017 








3018 


007242 


105711 




3019 


007244 


100003 




3020 


007246 


004737 


021002 


3021 


007252 


104030 




3022 








3023 


007254 


005000 




3024 


007256 


105711 




3025 








3025 


007260 


100411 




3027 


007262 


005200 




3028 


007264 


001374 




3029 








3030 


007266 


004737 


020774 


3031 


007272 


013737 


001350 001202 


3032 


007300 


104416 




3033 








3034 


007302 


104045 




3035 








3036 








3037 








3038 








3039 


007304 


004737 


021234 


3040 








3041 


007310 


104046 




3042 








3043 








3044 








3045 


007312 


004737 


021262 
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T17 CHECK 'READ' FUNCTION-CYLINDER 0, SECTOR 

7) IF ANY RKER BIT SET? 

8) IF THE CORRECT PSUEDO-HEADER (FIRST WORD) WAS 
READ FROM SECTOR 

9) IF THE 'READ' FUNCTION BITS ARE STILL IN RKCS 

TST17S SCOPE 



CNT. RESET 



TST. SIN 




MOV 
CLR 
MOV 
MOV 

MOV 


RKCS,R1 

RO 

RKBA.R2 

#0UTBUF,R3 
R3,§JR2 


MOV 
MOV 

MOV 


$-400, ©RKWC 

DRXVAD,®RKDA 

#5,@R1 


TSTB 
BPL 
JSR 
ERROR 


@R1 

2S 

PC.GT3RG 

30 


CLR 
TSTB 


RO 

@R1 


BMI 
INC 
BNE 


3$ 

RO 
2$+2 


JSR 
MOV 
BRKDA4 


PC.GT4RG 
DRIVAD.SREG10 



JSR PCCHKHE 
ERROR 46 



JSR PC.CHKDA 



GO, DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN 'l IME 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET 1 IS LO'ATED. 
THIS IS A VERY BASIC ERR & IF IT 
OCCURS GO BACK TO TEST 10 
GO CHECK IF SIN IS SET 
IF SET, DO DRIVE RESET TO CLR IT 



SET UP ADDRS WHERE DATA WORD IS 

TO BE X-FERRED 

SET UP WORD COUNT 

SET UP DISK ADRS, SECTOR 0, CYLINDER 

READ, GO 

WAS 'CNTRL RDY' CLEARED AS GO WAS SET? 

YES, BRANCH 

GO, GET RKCS, ER 

CNTRL RDY DID NOT CLEAR AS GO 

WAS SET TO 'READ' 

WAS CNTRL RDY SET ON COMPLETION 

OF TRANSFER? 

YES, BRANCH 

NO, HAVE U WAITED LONG ENOUGH? 

IF NOT, LOOP BACK & WAIT 

IF YES, REPORT ERROR 

GO, GET RKCS, ER, DS.DA 

GO TO 'BDA4' & BREAK CONTENTS OF 

SREG10 INTO DR M ,CYL, SUR , SEC BITS 

CNTRL RDY DID NOT SET ON 

COMPLET.ON OF READ 

READ WAS DONE STARTING AT <DSK~ADRES> 

INDICATED IN EROR MESGE 

CHECK IF 'ERR' OR 'HE' BIT IS SET 

IF YES, RETURN HERE.. 

'HE' OR 'ERR' BIT SET WHILE 

DOING A READ. 

READ WAS DONE STARTING AT <DSK-ADRES> 

INDICATED IN EROR MESGE 

CHECK IF RKDA INCREMENTED CORRECTLY, 
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T17 CHECK 'READ 1 FUNCTION-CYLINDER 0, SECTOR 



SEQ 0057 



3046 
3047 
3048 
3049 
3050 
3051 
3052 
3053 
3054 
3055 
3055 
3057 
3058 
3059 
3060 
30G1 
3062 
3063 
3064 
3065 
3066 
3067 
3068 
3069 
3070 
3071 
3072 
3073 
3074 
3075 
3076 
3077 
3078 
3079 
3080 
3081 
3082 
3083 
3084 
3085 
3086 
3087 
3008 
3089 
3090 
3091 
3092 
3093 
3094 
3095 
3096 
3097 
3098 
3099 
3100 
3101 



007316 104040 

007320 004737 021316 

007324 104041 

007326 022712 034342 

007332 001406 

007334 012737 034342 001162 

007342 011237 001164 

007346 104042 

007350 004737 021342 

007354 104036 

007356 022713 000001 

007362 001411 

007364 012737 000001 001162 

007372 011337 001164 

007376 013737 001350 001166 

007404 104044 



007406 022777 125252 171726 9$: 

007414 001407 

C07416 012737 125252 001162 

007424 017737 171712 001164 

C07432 104037 



007434 022711 000204 

0C7440 001406 

0C7442 012737 000204 001162 

007450 01 1 137 001 164 

C07454 104024 



007456 104413 

007460 005777 171656 

007464 001407 

007466 013737 001342 001164 



ERROR 


40 


JSR 


PC.CHKWC 


ERROR 


41 


CMP 
BEO 
MOV 
MOV 
ERROR 


#OUTBUF+1000,®R2 

7$ 

#OUTBUF+1000,$RE 

@R2,$REG1 

42 


JSR 


PCCHKER 


ERROR 


36 


CMP 


#1 ,@R3 


BEQ 
MOV 
MOV 
MOV 
ERROR 


9$ 

#1 ,$REG0 

(R3),$REG1 

DRIVAD.SREG2 

44 



CMP 


#125252, @RKDB 


BEO 


10$ 


MOV 


#125252, SREGO 


MOV 


@RKDB,$REG1 


ERROR 


37 


CMP 


#204, @R1 


BEQ 


11$ 


MOV 


#204, SREGO 


MOV 


©R1 ,$REG1 



CNT. RESET 
TST §>RKDB 
BEQ TST20 
MOV RKDB.SREG1 



IF NOT RETURN HERE. 

RKDA DID NOT INCREMENT 

BY 1 (SECTOR) 

CHECK IF RKWC OVERFLOWED TO 0, 

IF NOT RETURN HERE. 

RKWC DID NOT OVERFLOW TO 0, 

AFTER X-FER ON READ 

;DID RKBA INCREMENT CORRECTLY? 
YES, BRANCH 

;GET EXPCTD RKBA 
GET ACTUAL RKBA 
RKBA DID NOT INCREMENT BY 2 
AFTER 'READ' OF 1 WORD 
CHECK IF ANY BIT IN RKER SET, 
IF YES RETURN HERE. 
RKER BIT SET ON DOING 1 
WORD 'READ' 

DGES OUTBUF CONTAIN THE RIGHT 
DATA WORD 
YES BRANCH 

GET EXPCTD DATA WORD 
GET RECVD DATA WORD 

GET DISK ADRS FROM WHICH READ WAS DONE 
DID NOT READ THE CORRECT 
DATA WORD—FROM DISK ADRES, 

SEC 0, CYL 0, SUR 

AFTER 1 SECTOR READ RKDB CONTAINS 

FOR RK11C 

THE CHECKSUM FOR THAT SECTOR 

FOR RK1 1D 

THE LAST WORD TRANSFERRED TO MEMORY 

IT SO HAPPENS THAT WITH THE SECTOR 

THAT WAS READ, RKDB CONTAINS THE 

SAME INFORMATION FOR BOTH RK11C 

AND RK1 1D 

DOES RKDB CONTAIN THE EXPCTD WORD? 

YES, BRANCH 

GET EXPCTD RKDB 

GET RECVD RKDB 

RKDB DOESD NOT CONTAIN THE 

EXPCTD WORD AFTER A READ OF SEC 

CYL 

DOES RKCS HAVE THE 'READ' BITS? 

YES , BRANCH 

GET EXPCTD RKCS 

GET RECVD RKCS 

RKCS DID NOT CONTAIN 'READ' 

FUNCTION BITS AFTER OPERATION 

WAS COMPLETED 

GO DO CONTROL RESET 

DID CONTROL RESET CLEAR RK?B? 

;YES, EXIT 

GET ADRES OF RKDB 
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MACY11 30A(1052) 21- 
T17 CHECK 'READ 1 



FEB-78 08:58 PAGE 59 
FUNCTION-CYLINDER 0, SECTOR 



3102 


007474 


017737 


171642 001164 


3103 


007502 


104102 




3104 








3105 








3106 








3107 








3108 








3109 








31 10 








311 1 








3112 








31 13 








3114 








3115 








31 16 








31 17 








3118 








3119 


007504 


000004 




3120 


007506 


013703 


001332 


3121 


007512 


012702 


177764 


3122 


007516 


013704 


001340 


3123 


007522 


013701 


001350 


3124 


007526 


010105 




3125 


007530 


005205 




3126 


007532 


012737 


007540 001110 


3127 








3128 


007540 


104413 




3129 








3130 








3131 








3132 








3133 








3134 








3135 








3136 








3137 








3138 


007542 


104421 




3139 








3140 


007544 


005000 




3141 


007546 


010137 


033342 


3142 








3143 








3144 








3145 








3146 


007552 


012777 


033342 171556 


3147 








3148 


007560 


012777 


177777 171546 


3149 


007566 


010114 




3150 


007570 


012713 


002003 


3151 








3152 


007574 


105777 


171532 


3153 


007600 


100410 




3154 


007602 


005200 




3155 


007604 


001373 




3156 








3157 


007606 


004737 


020774 



MOV 
ERROR 



@RKDB,$REG1 
102 



;GET CONTENTS OF RKDB 
;CONTROL RESET DIDN'T CLR RKDB 



20 CHECK 'WRITE FORMAT 1 -CYLINDER 0, SECTOR 0-13 

*THIS TEST GOES ONE STEP FURTHE.. & PERFORMS A WRT 

*FMT ON CYLINDER & CHECKS THE FOLLOWING 

*1) IF CNTRL RDY SET WITHIN A CERTAIN TIME ON COMPLETION 

*0F THE FUNCTION 

*2) IF 'HE 1 OR 'ERR' BIT SET? 
;*3) IF THE RKDA INCREMENTS CORRECTLY? 

*4) IF THE RKDB IS CLEAR? 
;*WRT FMT IS DONE ONE SECTOR AT A TIME 

*THE FIRST WORD OF EVERY SECTOR IS WRITTEN AS A 
;*PSUEDO-HEADER CONSISTING OF DRIVE #, CYLINDER #, SURFACE 

*& SECTOR #. THIS WILL BE READ & CHECKED IN THE FOLLOWING TEST. 
********************************** 



SET UP COUNT FOR 12 SECTORS 



J J **** 


****** 


*** 


*********** 


TST20S 


SCOPE 






MOV 




RKCS,R3 




MOV 




#-14, R2 




MOV 




RKDA.R4 




MOV 




DRIVAD,R1 




MOV 




R1 ,R5 




INC 




R5 




MOV 




#1$,$LPERR 


1$: 


CNT. 


RESET 



CLR 
MOV 



MOV 
MOV 
MOV 

TSTB 
BMI 
INC 
BNE 

JSR 



RO 

R1 .OUTBUF 



#OUTBUF,(PRKBA 



#-1 .©RKWC 



@RKCS 
3$ 



GET DRIVE ADDRESS 
STORE IT 

SET RETURN ADRES FOR LUPING 

ON ERROR (SW 9) 

GO, DO CONTROL RESET 

THIS IS A CALL FOR THE 'CNTRL- 

RESET' ROUTINE. A CONTROL RESET I 

ISSUED AND AFTER A CERTAIN TIME 

IF THE 'CNTRL RDY 1 DOES NOT SET 

AN ERROR IS REPORTED. NOTE THAT 

THE PC IN ERROR MESSAGE IS THE 

PC WHERE 'CNT. RESET 1 IS LOCATED. 

THIS IS A VERY BASIC ERR <S IF IT 

OCCURS GO BACK TO TEST 10 

GO CHECK IF SIN IS SET 

IF SET, DO DRIVE RESET TO CLR IT 

THIS WORD TO BE X-FERRED. FIRST 

WORD OF EACH SECTOR WILL BE THE 

ACTUAL DRIVE-ADDRS CONSISTING OF 

DRIVE NO, CYL ADORS, SURFACE 

SECTOR NO. 

ADRS FROM WHICH DATA WORD IS TO 

X-FERRED 

SET UP WORD COUNT 



R1,@R4 ;ADDRS THE DRIVE, CYL 0, & CORRECT SECTOR 
#2003, @R3 



WRITE FORMAT, GO 

DID 'CNTRL RDY' SET? 
YES, BRANCH 

NO. HAVE U WAITED LONG? 
IF NOT, LOOP BACK & WAIT 
IF YES, REPORT ERROR 
GO, GET RKCS, ER, DS.DA 
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315B 

3159 

3160 

3161 

3162 

3163 

3164 

31S5 

3166 

3167 

3168 

3169 

3170 

3171 

3172 

3173 

3174 

317S 

3176 

3177 

3178 

3179 

3180 

3181 

3182 

3183 

3184 

3185 

3186 

3187 

3188 

3189 

3190 

3191 

3192 

3193 

3194 

3195 

3196 

3197 

3198 

3199 

3200 

3201 

3202 

3203 

3204 

3205 

3206 

3207 

3208 

3209 

3210 

3211 

3212 

3213 



007612 
007616 
007620 

007622 
007626 



007630 
007634 



010137 001202 

104416 

104031 

004737 021226 
104032 



004737 021270 
104033 



MACY11 30A(1052) 21-PEB-78 
T20 CHECK 'WRITE FORMAT 1 

MOV R1,SREG10 

BRKDA4 

ERROR 31 

3$5 JSR PC.CHKHE1 
ERROR 33 



007636 005777 171500 



4%: 



s$; 



007642 
007644 
007650 
007658 



001406 

005037 001162 



017737 
104037 



171466 0Q1164 



JSR PCCHKDA1 
ERROR 33 



BEQ 6$ 

CLR SREGO 

MOV @RKDB,SREG1 

ERROR 37 



007660 
007662 
007664 
007670 
007672 

007676 
007700 



005201 

005205 

122705 000014 

001002 

062705 000004 

005202 
001317 



INC 
INC 

CMPB 

BNE 

ADD 

INC 
BNE 



R1 
R5 

#14, R5 

.+6 

#4,R5 

R2 
1$ 



08:58 PAGE 60 
-CYLINDER 0, SECTOR 0-13 

GET DISK ADRS (UNIT , CYL , SUR , SEC) TO WHICH 

WRITE FORMAT WAS DONE 

GO TO 'BDA4' & BREAK CONTENTS OF 

SREG10 INTO DR # ,CYL , SUR , SEC BITS 

'CNTRL RDY' DID NOT SET ON COMPLETION 

OF 'WRITE FORMAT 1 

WRT FMT WAS DONE STARTING AT <DSK-ADRES> 

INDICATED IN EROR MSGE. 

CHECK IF 'ERR' OR 'HE' BIT IS SET, 

IF YES RETURN HERE. 

■HE' OR 'ERR 1 BIT SET WHILE DOING 

WRITE FORMAT ON CYLINDER 0, 

SECTOR IN ERROR IS AS SHOWN IN 

DISK-ADRES BITS 0-3 

WRT FMT WAS DONE STARTING AT <DSK-ADRES> 

INDICATED IN EROR MSGE. 

CHECK IF RKDA INCREMENTED CORRECTLY? 

RKDA DID NOT INCREMENT CORRECT 

AFTER 1 WORD 'WRITE FORMAT 1 ON 

CYLINDER 0, SECTOR IN ERROR IS 1 

LESS THAN THAT SHOWN IN EXPCTD RKDA 

CHECK THAT RKDB DOES CONTAIN A 

AFTER WRT BECAUSE LAST WORD WRITTEN 

WAS SERIALLY SHIFTED OUT TO THE DISK 

YES, BRANCH 

THIS IS WHAT RKDB SHOULD CONTAIN 

GET RKDB 

RKDB SHOULD BE AFTER WRT SINCE THE 

LAST WORD WRITTEN WAS SERIALLY SHIFTED 

OUT OF RKDB 

INCREMENT DRIVE ADDRS TO NXT SECTOR 

R U GOING TO CHECK THE LAST SECTOR? 

IF NOT, BRANCH 

IF YES, INCREMENT R5 CORRECTLY TO 'EXPCTD RKDA' 

AFTER HAVING CHECKED THE LAST SECTOR 

HAVE U FORMATTED ALL 12 SECTORS? 

IF NOT, BRANCH BACK A LOOP 

IF YES, EXIT 



SEO 0059 



******************************************************** 

CHECK 'READ FORMAT * -CYLINDER 0, SECTOR 0-13 
*THIS TEST PERFORMS A RD FMT ON THE 12 SECTORS OF CYLINDER 
*THE FOLLOWING IS CHECKED 

*1) IF CNTRL RDY SET WITHIN A CERTAIN TIME ON COMPLETION 
*OF THE FUNCTION 
*2) IF 'HE' OR 'ERR' BIT SET? 

IF THE RKDA INCREMENTS CORRECTLY? 

RKBA INCREMENTED CORRECTLY BY 30 (OCTAL) 

RKWC OVERFLOWED TO FROM -14 (OCTAL) 

CORRECT HEADER WAS RECEIVED FROM ALL 12 SECTORS. 

RKCS STILL CONTAINS THE ' RD FMT' FUNCTION BITS. 
*IF THERE IS A READ ERROR IN THIS TEST OR ANY 
*OTHER TESTS THE USER SHOULD MAKE SURE THAT 



♦ 3) 
*4) 

• 5) 
:6) 

7) 
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T21 CHECK' 'READ FORMAT ' -CYLINDER 0, SECTOR 0-13 



SEQ 0060 



3214 








3215 








3216 








3217 








3218 








3219 


007702 


000004 




3220 


007704 


005005 




3221 


007706 


104413 




3222 








3223 








3224 








3225 








3226 








3227 








3228 








3229 








3230 








3231 


007710 


104421 




3232 








3233 


007712 


01 3701 


001332 


3234 


007716 


012700 


177764 


3235 


007722 


013702 


001340 


3236 


007726 


013712 


001350 


3237 


007732 


012704 


033342 


3233 


007736 


010477 


171374 


3239 


007742 


012777 


177764 171364 


3240 


0077S0 


012777 


002005 1713S4 


3241 








3242 


007756 


105777 


171359 


3243 


007762 


100411 




3244 


007764 


005205 




3245 


007766 


001373 




3246 








3247 


007770 


004737 


020774 


3248 


007774 


013737 


001350 001202 


3249 


010002 


104416 




3250 








3251 


010004 


104045 




3252 








3253 








3254 








3255 








3256 


010006 


004737 


021234 


3257 








3258 


010012 


104046 




3259 








3260 








3261 








3262 


010014 


013705 


001350 


3263 


010020 


062705 


000020 


3264 








3265 


010024 


004737 


021270 


3266 








3267 


010030 


104040 




3268 








3269 









*IT IS AN IRRECOVERABLE 
*ONE. THIS CAN BE DONE 
♦IN QUESTION. USUALLY A 
*DISAPPEARS ON RETRIES, 
************************* 

SCOPE 

CLR R5 

CNT. RESET 



ERROR AND NOT A TRANSIENT 
BY LOOPING ON THE TEST 
TRANSIENT ERROR 

WHEREAS A LOGIC ERROR DOES NOT. 
******************************** 



TST.SIN 




MOV 


RKCS.R1 


MOV 


#~14,RG 


MOV 


RKDA.R2 


MOV 


DRIVAD,@R2 


MOV 


#QUTBUP,R4 


MOV 


R4,®RKBA 


MOV 


#-14,@RKWC 


MOV 


#2005,$RKCS 


TSTB 


©RKCS 


BMI 


2$ 


INC 


R5 


BNE 


1$ 


JSR 


PCGT4RG 


MOV 


DRIVAD.SREG10 


BRKDA4 





ERROR 45 



JSR 


PCCHKHE 


ERROR 


46 


MOV 


DRIVAD.R5 


ADD 


#20, R5 


JSR 


PC.CHKDA1 


ERROR 


40 



GO, DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERR & IF IT 
OCCURS GO BACK TO TEST 10 
GO CHECK IF SIN IS SET 
IS SET, DO DRIVE RESET TO CLR IT 

SET UP COUNT FOR 12 SECTORS 

ADDRESS THE DRIVE 

ADRS TO WHICH X-FER DATA FROM DSK 

SET UP V'ORD COUNT FOR 12 HEADERS TO BREAD 

READ FORMAT, GO 

DID CNTRL RDY SET ON COMPLETION? 

YES, BRANCH 

NO, WAIT FOR IT TO SET 

IF WAITED LONG ENOUGH REPORT 

ERROR, OTHERWISE LOOP BACK & WAIT 

GO, GET RKCS, ER, DS.DA 

GO TO 'BDA4' & BREAK CONTENTS OF 
SREG10 INTO DR*,CYL,SUR,SEC BITS 

CNTRL RDY DID NOT SET ON COMPLETION 

OF READ FORMAT-OF CYLINDER 0, 

SECTORS 0-13 

READ FMT WAS DONE STARTING AT <DSK~ADRES> 

INDICATED IN EROR MESGE 

CHECK IF 'ERR' OR 'HE' BIT IS SET, 

IF YES RETURN HERE. 

'ERR' OR 'HE' BIT SET ON DOING 

READ FMT-OF CYLINDER 0, SEC 0-13 

READ FMT WAS DONE STARTING AT <DSK-ADRES> 

INDICATED IN EROR MESGE 

RKDA SHOULD HAVE INCREMENTD TO (R2) 

CHECK IF RKDA INCREMENTED CORRECT: Y, 

IF NOT, RETURN HERE . 

RKDA DID NOT INCREMENT BY 12 

AFTER A 'RD FMT' OF 12 HEADERS OF 

CYLINDER 0, SECTORS 0-13 
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C LOGIC 


TEST 2 


CZRKKF. 


P11 21-FEB-78 


08:51 




3270 










3271 










3272 


01 0032 


022777 


0333,72 


171276 


3273 


010040 


001407 






3274 


010042 


012737 


033372 


001162 


3275 


010050 


017737 


171262 


001164 


3276 


010056 


104042 






3277 










3278 


010060 


004737 


021316 




3279 










3280 


010064 


104041 






3281 










3282 










3283 


010066 


005724 






3284 


010070 


001413 






3285 


010072 


010037 


001162 




3286 


010076 


062737 


000014 


001162 


3287 


010104 


005037 


001164 




3288 


0101 10 


014437 


001166 




3289 


0101 14 


104043 






3290 










3291 


010116 


005724 






3292 


010120 


005200 






3293 


010122 


001361 






3294 










3295 


010124 


004737 


021342 




3296 










3297 


010130 


104036 






3298 










3299 


010132 


022711 


002204 




3300 


010136 


001406 






3301 


010140 


012737 


002204 


001161 


3302 


010146 


011137 


001164 




3303 


010152 


104024 






3304 










3305 










3306 










3307 










3308 










3309 










3310 










331 1 










3312 










3313 










3314 










3315 










3316 










3317 










3318 










3319 










3320 










3321 










3322 










3323 










3324 










3325 
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T21 CHECK 'READ FORMAT ' -CYLINDER 0, SECTOR 0-13 



SEQ 0061 



RKEA SHOULD INCREMENT BY 24 BYTES 
AT THE END OF X-FER 
;DID RKBA INCREMENT CORRECTLY? 
YES, BRANCH 

;GET EXPCTD RKBA 
GET ACTUAL RKBA 

RKBA DID NOT INCREMENT CORRECTLY 
AFTER READ FORMAT OF 12 HEADERS 
GO CHECK IF RKWC OVERFLOWED TO 
IF NOT RETURN HERE. 
RKWC DID NOT OVERFLOW TO 
AFTER 'RD FMT ' OF 12 HEADERS 
OF CYLINDER 

WAS THE CORRECT HEADER RECIEVED? 
YES, BRANCH 

GET SECTOR FOR WHICH THE HEADER 
COULD NOT BE READ CORRECT 
EXPCTD HEADER-O, FOR CYL 
GET WRONG HEADER RECVD 
HEADER WAS NOT READ RIGHT FOR 
SECTOR (AS IN ER MSGE), & CYL 
WAS THE CORRECT HEADER RECVD? 
YES, HAVE U CHECKED FOR ALL 12 SECTORS? 
IF NOT, LOOP BACK & CHK HDR FRM NXT SECTR 

CHECK IF ANY BIT IN RKER IS SET, 

IF YES, RETURN HERE. 

RKER BIT SET ON DOING RD FMT 

OF CYL 0, SECTORS 0-13 

DOES RKCS STILL CONTAIN FUNCTION BITS? 

;YES, EXIT 

GET EXPCTD RKCS 

GET ACTUAL RKCS 

RKCS DID NOT CONTAIN 'RD F.O"' 

FUNCTION BITS ON COMPETION OF 

THE FUNCTION 



CHECK "READ' .CYLINDER 0, SECTORS TO 13 

EAD OF ALL THE SECTORS OF CYLINDER 



CMP 


#0UTBUF+30,@RKBA 


BEQ 


5S ; 


MOV 


#OUTBUF+30,$REG0 


MOV 


(3>RKBA,$REG1 ; 


ERROR 


42 ; 


JSR 


PC.CHKWC ; 


ERROR 


41 ; 


TST 


(R4)+ ; 


BEQ 


7$ ; 


MOV 


RO.SREGO ; 


ADD 


#14,$REG0 ; 


CLR 


SREG1 ; 


MOV 


-(R4),$REG2 ; 


ERROR 


43 ; 


TST 


(R4)+ ; 


INC 


RO ; 


BNE 


6$ ; 


JSR 


PC.CHKER ; 


ERROR 


36 ; 


CMP 


#2204, @R1 ; 


BEQ 


TST22 ; 


MOV 


#2204,$REG0 ; 


MOV 


@R1,$REG1 ; 


ERROR 


24 ; 



*THIS TEST PERrORMS A 
*& CHECKS THE FOLLOWING 
*1 ) CNTRL RDY SETS WITH 
*OF THE FUNCTION 
*2) IF 'HE' OR 'ERR' BI 
*3) IF THE CORRECT PSUE 
♦SECTOR, WRITTEN I 
*4) IF RKDS CONTAINS TH 
*4) IF RKDA INCREMENTED 
*5) IF REST OF THE (377 
^PREVIOUSLY ONE WORD -WA 
*6) IF RKCS STILL CONTA 
*7) IF CONTROL RESET CL 
* IF TESTING IS BEING 
♦IS READ BECAUSE THE SI 



IN A CERTAIN TIME ON COMPLETION 

T SET? 

DO-HEADER (FIRST WORD OF EVERY) 
REVIOUS TEST) WAS RECEIVED. 
E CORRECT WORD. 

CORRECTLY. 
) WORDS IN EACH SECTOR ARE '0' , NOTE 
S WRITTEN PER SECTOR. 
INS THE 'READ 1 FUNCTION BITS 
EARS RKDB. 

DONE ON A SIMULATOR ONLY LAST SECT0R(13) 
MULATOR CAN STORE ONLY 1 SECTOR (256 WORDS). 
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T22 CHECK ' READ ' , CYLINDER 0, SECTORS TO 13 



SEQ 0062 



3326 








3327 








3328 


010154 


000004 




3329 


010156 


012737 


010230 


3330 








3331 


010164 


013703 


001332 


3332 


010170 


013701 


001350 


3333 


010174 


010105 




3334 


010176 


012704 


033342 


3335 


010202 


005737 


001344 


3336 


010206 


001405 




3337 








3338 








3339 


010210 


052701 


000013 


3340 


010214 


052705 


000020 


3341 


010220 


000403 




3342 


010222 


012702 


177764 


3343 


010226 


005205 




3344 








3345 


010230 


104413 




3346 








3347 








3348 








3349 








3350 








3351 








3352 








3353 








3354 








3355 


010232 


104421 




3356 








3357 


010234 


010177 


171100 


3358 


010240 


010477 


171072 


3359 


010244 


012777 


177400 


3360 


010252 


01 2713 


000005 


3361 








3362 


010256 


005000 




3363 


010260 


105713 




3364 


010262 


100410 




3365 


010264 


005200 




3366 


010266 


001374 




3367 








3368 


010270 


004737 


020774 


3369 


010274 


010137 


001202 


3370 


010300 


104416 




3371 








3372 


010302 


104045 




3373 








3374 








3375 








3376 








3377 


010304 


004737 


021226 


3378 








3379 
3380 
3381 


010310 


104046 





*HENCE ONLY THE DATA 



9$: 

1$: 



SCOPE 




MOV 




#1$,SLPERR 


MOV 




RKCS.R3 


MOV 




DRIVAD.R1 


MOV 




R1 ,R5 


MOV 




#0UTBUF,R4 


TST 




SIMUL 


BEQ 




9$ 


BIS 




#13, R1 


BIS 




#20,R5 


BR 




1$ 


MOV 




#-14, R2 


INC 




R5 


CNT. 


RESET 



MOV 
MOV 
MOV 
MOV 

CLR 
TSTB 

BMI 
INC 
BNE 

JSR 
MOV 
BRKDA4 



R1 ,<PRKDA 
R4,@RKBA 
#-400,@RKWC 
#5,@R3 

RO 

@R3 
3S 
RO 
2$ 

PC.GT4RG 
R1 .SREG10 



JSR PC.CHKHE1 
ERROR 46 



WRITTEN LAST CAN BE READ BACK. 



;SET RETURN ADRES FOR LUPING 
;0N ERROR (SW 9) 



TESTING ON SIMULATOR? 

NO, BRANCH 

IF TESTING ON SIMULATOR READ 

SECTOR 13 ONLY 

SET BITS FOR SEC 13 

RKDA SHOULD INCRMNT TO THIS AFTER READ 

SET COUNT FOR 12 SECTORS 

RKDA SHOULD INCREMENT TO 

THIS AFTER 1 SECTOR READ 

GO, DO CONTROL RESET 

THIS IS A CALL FOR THE 'CNTRL- 

RESET' ROUTINE. A CONTROL RESET IS 

ISSUED AND AFTER A CERTAIN TIME 

IF THE 'CNTRL RDY* DOES NOT SET 

AN ERROR IS REPORTED. NOTE THAT 

THE PC IN ERROR MESSAGE IS THE 

PC WHERE 'CNT. RESET' IS LOCATED. 

THIS IS A VERY BASIC ERR & IF IT 

OCCURS GO BACK TO TEST 10 

GO CHECK IF SIN IS SET 

IF SET, DO DRIVE RESET TO CLR IT 

ADDRESS THE DRIVE 

ADRS TO WHICH X-FER DATA FROM DISK 

SETUP WORD COUNT 

READ, GO 



DID CNTRL RDY SET ON COMPETION? 

YES, BRANCH 

NO, WAIT FOR IT TO SET 

IF WAITED LONG ENOUGH, REPORT 

ERROR. OTHERWISE LOOP BAK & WAIT 

GO, GET RKCS, ER, DS.DA 

GET SECTOR ADDRES WHERE ERROR OCCURED 

GO TO 'BDA4' & BREAK CONTENTS OF 

SREG10 -NTO DR # .CYL , SUR , SEC BITS 

CNTRL RDY DID NOT SET ON COMPLETION 

OF READ OF CYLINDER 0, SECTOR 

AS SHOWN IN <DSK-ADRES> 

READ WAS DONE STARTING AT <DSK-ADRES> 

INDICATED IN EROR MESGE 

CHECK IF 'ERR' OR 'HE' BIT IS SET, 

IF YES RETURN HERE. 

HE OR ERR BIT SET 

ON 'READ' OF CYLINDER 0, SECTOR 

AS SHOWN IN <DSK-ADRES> 
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T22 CHECK ' READ' , CYLINDER 0, SECTORS TO 13 



SEQ 0063 



3382 














3383 
3384 


010312 


0201 14 




4$: 


CMP 


R1 ,(R4) 


3385 














3386 














3387 
3383 
3389 


010314 
010316 


001407 
010137 


001162 




BEQ 
MOV 


5$ 

R1 .SREGO 

(R4),$REG1 

R1 .SREG2 

44 


3390 


010322 


01 1437 


001164 




MOV 


3391 


010326 


010137 


001166 




MOV 
ERROR 


3392 


010332 


104044 






3393 














3394 

3395 


010334 


004737 


021270 


5$: 


JSR 


PC.CHKDA1 


3395 
3397 


010340 


104040 






ERROR 


40 


3398 














3399 














34C0 














3401 














3402 














3403 














3404 














3405 














3406 














3407 
3408 

3409 


010342 

010350 


012737 

012700 


177775 001370 
033344 




MOV 

MOV 


0-3.EFLG1 
#OUTBUF+2,R0 
#-377, COUNT 


3410 


010354 


012737 


177401 001362 




MOV 


3411 


010362 


005710 




11$: 


TST 


@R0 
12$ 
(R0) + 


3412 

3413 


010364 
010356 


001005 
005720 






BNE 
TST 


3414 


010370 


005237 


001362 




INC 


COUNT 

11$ 

7$ 


3415 


010374 


001372 






BNE 


3416 


010376 


000412 






BR 


3417 


010400 


005037 


001162 


19$: 


CLR 


SREGO 


3418 


010404 


012037 


001164 




MQV 


(R0)+,$REG1 


3419 


010410 


010137 


001166 




MOV 


R1 ,$REG2 


3420 
3421 


010414 


104044 






ERROR 


44 


3422 














3423 














3424 














3425 














3426 














3427 














3428 
3429 


010416 


005237 


001370 




INC 


EFLG1 


3430 


010422 


001357 






BNE 


1 1$ 


3431 














3432 
3433 


010424 


005737 


001344 


7$: 


TST 


SIMUL 


3434 


010430 


00101 1 






BNE 


1 OS 


3435 














3436 














3437 


010432 


005201 






INC 


R1 



READ WAS DONE STARTING AT <DSK-ADRES> 

INDICATED IN EROR MESGE 

WAS THE DATA WORD RECVD, CORRECT? 

THE FIRST DATA WORD OF EACH SECTOR 

IS AN ADRS WORD COMRISING OF DRIVE NO, 

CYLINDER ADRS, SUR , SECTOR ADRS 

GET EXPCTD DATA WORD FROM DISK 

GET THE DATA WORD RECVD 

GET DISK ADRES 

DID NOT RECIEVE CORRECT DATA WC.3D ON 

READ, OF CYLINDER 0, SECTOR AS SHOWN IN ' DSK 

ADRES' OF EXPCTD DATA WORD 

CHECK IF RKDA INCREMENTED CORRECTLY, 

IF NOT RETURN HERE. 

RKDA DID NOT INCREMENT CORRECTLY 

AFTER READ OF 1 WORD, FROM CYL 

SEC IN ERROR IS 1 LESS THAN THAT 

SHOWN IN EXPCTD RKDA 

AS A RESULT OF 'WRT FMT ' IN A PREVIOUS TEST 
FIRST WORD OF EVERY SECTOR IS NON- 
ZERO (PSUEDO-HDR), REST 377 WORDS 
ARE ALL O'S. 

CHECK IF THE REST OF THE 377 
WORDS £ n E ALL O'S 
ALLOW ONLY 3 ERRORS 
INITIALIZE PTR TO 2ND WRD IN BUFR 
CHECK 377 WORDS IN THE BUFFER 
IS THIS WRD 0? 
NO, ERROR 

INCRMNT PTR TO NXT WRD 
CHKD ALL 377 WRDS? 

;YES, BRANCH 

;GET EXPCTD WORD 

;GET WORD RECVD 

;GET DISK ADRES, ERROR IN THIS 

; SECTOR 

;DATA ERROR, THE LAST 377 WORDS 

;READ FROM EACH SECTOR SHOULD BE 

;IN A PREVIOUS TEST, FIRST WORD OF 

-.EVERY SEC (CYL 0) WAS WRITTEN AS A 

;PSUEDO-HDR, REST OF THE WORDS IN THE 

;SECTR ARE AUTOMATICALLY WRITTEN AS 

;0'S. THIS ERROR MAY MEAN THAT IT 

;DIDN'T HAPPEN SO 

'.ALLOW ONLY 3 DATA ERORS OF THIS KIND 



;TESTING ON SIMULATOR? 

;YES BRANCH 

;IF NOT TESTING ON SIMULATOR GO AHEAD 

; & READ ALL 12 SECTORS ON CYL 

; INCREMENT DRIV-ADRES TO NXT SECTOR 
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T22 CHECK ' READ' .CYLINDER 0, SECTORS TO 13 



SEQ 0064 



3438 

3439 

3440 

3441 

3442 

3443 

3444 

3445 

3446 

3447 

3448 

3449 

3450 

3451 

3452 

3453 

3454 

3455 

3456 

3457 

3458 

3459 

3460 

3461 

3462 

3463 

3464 

3465 

3466 

3467 

3468 

3469 

3470 

3471 

3472 

3473 

3474 

3475 

3476 

3477 

3478 

3479 

3480 

3481 

3482 

3483 

3484 

3485 

3486 

3487 

3488 

3489 

3490 

3491 

3492 

3493 



010434 
010436 
010442 
010444 

010450 
010452 

010454 
010460 
010462 
010470 
010474 



005205 

122705 000014 

001002 

062705 000004 

005202 
001266 



INC R5 

CMPB #14, R5 

BNE .+6 

ADD #4,R5 



022713 
001406 
012737 
01 1337 
104024 



000204 
001164 



INC 
BNE 

CMP 
BEQ 
MOV 
MOV 
ERROR 



R2 
1$ 

#204, @R3 

8$ 

#204, SREGO 

@R3,$REG1 

24 



010476 104413 



010500 005777 170636 

010504 001407 

010506 013737 001342 001162 

010514 017737 170622 Q01164 

010522 104102 



TST 
BEQ 
MOV 
MOV 
ERROR 



©RKDB 

TST23 

RKDB,$RFGO 

@RKDB,$REG1 

102 



• » * «< tji tfc # # sjs 

;*TEST 23 



INCREMENT 'EXPCTD DRIV-ADRES' 

R U GOING TO READ THE LAST SECTOR? 

IF NOT, BRANCH 

IF YES, INCREMENT 'EXPCTD RKDA' 

CORRECT LY 

have u . ead all 12 sectors? 
, if not Loop back & read the 
;nxt sector 

does rkcs, still have the 'read 1 function 
yes, branch 
get expctd rkcs 
get rkcs recvd 

rkcs should still contain the 'read' 
function bits 
go ,do control reset 
this is a call for the 'cntrl- 
reset' routine. a control reset is 
issued and after a certain time 
if the 'cntrl rdy' does not set 
an error is reported. note that 
the pc in error message is the 
pc where 'cnt. reset' is located, 
this is a very basic err & if it 
occurs go back to test 10 
did cntrl reset clear rkdb? 

r ;YES, EXIT 

jGET ADRES OF RKDB 

GET CONTENTS OF RKDB 

CONTROL RESET DID NOT 

CLEAR RKDB 



* * * * * * * * # 



***************************************** 
CHECK 'WRITE FORMAT' OF THE DISK 

THIS TEST WRITE FORMATS THE ENTIRE DISK. THE FIRST 
*WORD OF EVERY SECTOR IS WRITTEN TO BE A PSUEDO-HEADER 
^CONSISTING OF THE DRIVE #, CYLINDER #, SURFACE & SECTOR #. 
*1 SECTOR IS WRITTEN A; A TIME. THE WRITING IS DONE 
•IN THIS ORDER: CYL 0-SUR 0; CYL 0-SUR 1; CYL 1-SUR 
*CYL 1-SUR 1; CYL 2-SUR 0; CYL 2-SUR 1 — — CYL 312-SUR 1. 
♦IMPORTANCE OF THIS TEST SHOULD BE REALIZED. THIS IS 
*THE FIRST TIM£ EACH 8> EVERY SECTOR ON THE DISK IS 
*ACCESSED & WRITTEN ON. THIS IS THE FIRST TIME RKDA 
♦IS BEING MADE TO INCREMENT OVER THE ENTIRE DISK (FROM 
♦000000 TO 014520) IF A 'SIN' OCCURS AT ANY POINT 
♦A DRIVE RESET IS DONE BEFORE DOING WRT FMT FOR THE NEXT 
*SECTOR. ANY OTHER ERROR IS CLEARED THROUGH A CONTROL RESET. 
*THE FOLLOWING CHECKING IS DONE AFTER WRITING EACH 
•"CYLINDER. 

*1. CNTRL RDY SETS WITHIN A CERTAIN TIME ON COMPLETION 
*OF THE FUNCTION. 
*2. IF 'SIN' OCCURRED? 
*3. IF 'HE' OR 'ERR' BIT SET? 

*4. IF RKDA INCREMENTED CORRECTLY, INCLUDING BOUNDARY 
^CONDITIONS (SECTOR COUNTER BITS OVERFLOWING INTO SURFACE, 
*SURFACE BIT OVERFLOWING INTO CYLINDER BITS) AT THE END 



000004 

012737 000001 001206 

012737 010564 001110 



010542 005003 



177465 
177764 
001350 



010566 104421 
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3494 
3495 
3496 

3497 010524 

3498 010526 

3499 010534 
3500 
3501 
3502 

3503 010544 012704 

3504 010550 012702 

3505 010554 013701 

3506 010560 010105 

3507 010562 005205 

3508 010564 104413 
3509 

3510 
3511 
3512 
3513 
3514 
3515 
3516 
3517 
3518 
351 9 

3520 010570 

3521 010574 
3522 
3523 
3524 

3525 010600 

3526 010606 

3527 010614 
3528 
3529 
3530 

3531 010626 

3532 010632 

3533 010634 

3534 010540 
3535 

3536 010642 

3537 010646 

3538 010652 
3539 
3540 
3541 
3542 
3543 
3544 

3545 010656 

3546 010564 

3547 010566 

3548 010672 

3549 010676 



MACY11 30AO052) 21-FEB-78 

T23 CHECK 'WRITE FORMAT 1 



' 08:58 PAGE 66 
OF THE DISK 



SEO 0065 



010654 104031 



032777 001000 

001405 

004737 021002 

010137 001170 

104001 



*OF THIS POINTERS ARE INCREMENTED ADJUSTED, ETC. 
*& 'WRT FMT' ON THE NEXT SECTOR IS DONE. 



005037 001362 
010137 033342 



012777 033342 170530 
012777 177777 170520 
010177 170520 



010620 012777 002003 170504 



105777 170500 
10041 1 

005237 001362 
001372 

004737 020774 
010137 001202 
104415 



170442 3$: 



SCOPE 




MOV 




#1 ,$TIMES 


MOV 




#1$,$LPERR 


CLR 




R3 


MOV 




#-313, R4 


MOV 




#-14, R2 


MOV 




DRIVAD.R1 


MOV 




R1 ,R5 


INC 




R5 


CNT. 


RESET 



CLR 
MOV 



COUNT 

R1 .OUTBUF 



MOV #OUTBUF,@RKBA 
MOV #-1,@RKWC 
MOV R1 ,@RKDA 



MOV 



02003, @RKCS 



TSTB @RKCS 

BMI 3$ 

INC COUNT 

BNE 2$ 

JSR PC.GT4RG 

MOV R1.SREG10 
BRKDA4 



BIT 


#1000,@RKDS 


BEO 


4S 


JSR 


PCGT3RG 


MOV 


R1 ,$REG3 


ERROR 


1 



;D0 1 ITERATION 

SET RETURN ADRES FOR LUPING 

ON ERROR (SW 9) 

(R3)=0, SURFACE BEING WRITTEN 

(R3)-1, SURFACE 1 BEING WRITTEN 

SET UP COUNT FOR 203 CYLINDERS 

SET UP COUNT FOR 12 SECTORS 

GET DRIVE ADRES 

STORE IT 

GO, DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY' DOES NOT SE T 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE "CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERR & IF IT 
OCCURS GO BACK TO TEST 10 
GO CHECK IF SIN IS SET 
IF SET, DO DRIVE RESET TO CLR IT 

THIS WORD TO BE WRITTEN. THE FIRST 
WORD OF EACH SECTOR WILL BE THE ACTUAL 
DISK-ADRES, CONSISTING OF THE DRIVE NO, 
CYL ADRES, SURFACE BIT SECTOR ADRES 
ADRES FROM WHICH WORD IS TO B X-FERRED 
SET UP WORD COUNT 

ADRES THE DRIVE, WITH CORRECT CYL 
& SECTOR ADRES 
WRITE FORMAT, GO 

DID CNTRL RDY SET 

YES, BRANCH 

NO, HAVE U WAITED LONG ENOUGH? 

IF NOT, LOOP BACK & WAIT 

IF YES, REPORT ERROR 

GO, GET RKCS, ER , DS.DA 

GET DISK ADRES, WHERE ERROR OCCURED 

GO TO 'BDA4' & BREAK CONTENTS OF 

SREG10 "NTO DR # ,CY L , SUR , SEC BITS 

CNTRL RDY DID NOT SET ON COMPLETION 

OF 'WRITE FORMAT', ON SECTOR AS 

SHOWN IN <DSK-ADRES> 

WRT FMT WAS DONE STARTING AT <DSK-ADRES> 

INDICATED IN EROR MSGE. 

DID SIN BIT SET? 

NO, BRANCH 

GO, GET RKCS, ER, DS 

GET, DISK-ADRES WHERE ERROR OCCURED 

SIN SET WHILE DOING WRT FMT 
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3550 








3551 








3552 


010700 


004737 


021226 


3553 








3554 


010704 


104032 




3555 








3556 








3557 








3558 








3559 


010706 


004737 


021270 


3560 








3561 


010712 


104033 




3562 








3563 








3564 








3565 


010714 


005201 




3566 


010716 


005205 




3567 


010720 


022702 


177776 


3568 








3569 


010724 


001002 




3570 


010726 


062705 


000004 


3571 


010732 


005202 




3572 








3573 


010734 


001313 




3574 








3575 








3576 


010736 


012702 


177764 


3577 


010742 


042701 


000037 


3578 


010746 


005703 




3579 


010750 


001006 




3580 


010752 


005203 




3581 


C10754 


062701 


000020 


3582 


010760 


010105 




3583 


010762 


005205 




3584 


010764 


000677 




3585 


010766 


062701 


000040 


3586 


010772 


010105 




3587 


010774 


005205 




3588 


010776 


005003 




3589 


011000 


005204 




3590 


011002 


001270 




3591 








3592 








3593 








3594 








3595 








3596 








3597 








359B 








3599 








3600 








3601 








3602 








3603 








3604 








3605 









MACY11 30A(1052) 21-FEB-78 
T23 CHECK 'WRITE FORMAT' 



JSR PC.CHKHE1 
ERROR 32 



JSR 
ERROR 



PC.CHKDA1 
33 



INC 


R1 


INC 


R5 


CMP 


#-2,R2 


BNE 


.+6 


ADD 


#4,R5 


INC 


R2 



08:58 PAGE -67 

OF THE DISK 



;TO DISK-ADRES (AS IN $REG3) 

CHECK IF 'ERR' OR 'HE' BIT IS SET 

IF YES, RETURN HERE. 

HE OR ERR SET WHILE DOING WRITE 

FORMAT ON SECTOR AS INDICATED IN 

<DSK-ADRES> 

WRT FMT WAS DONE STARTING AT <DSK-ADRES> 

INDICATED IN EROR MSGE. 

CHECK IF RKDA INCREMENTED CORRECTLY, 

IF NOT, RETURN HERE. 

RKDA DID NOT INCREMENT CORRECTLY 

AFTER 'WRITE FORMAT' WAS DONE 

TO THE SECTOR PREVIOUS TO THAT 

INDICATED IN 'EXPCTD' RKDA 

INCREMENT TO THE NXT SECTOR 

INCREMENT R5, TO WHAT RKDA WILL INCREMENT 

R U GOING TO FORMAT THE LAST SECTOR 

IN THE CYLINDER ? 

IF NOT, BRANCH 

INCREMENT R5 CORRECTLY TO 'EXPCTD RKDA 1 

HAVE U FORMATTED ALL 12 SECTORS 

ON THIS CYLINDER 

IF NOT, LOOP BACK & FORMAT THE 

NEXT SECTOR 

YES 

RESET THE COUNT FOR 12 SECTORS 

CLEAR THE SEC ADRES BITS 

SURFACE 1? 

YES, BRANCH 

NO, SET FLAG 

INCREMENT TO THE NXT SURFACE 

THIS IS WHAT RKDA SHOULD 

INCREMENT TO. 

GO, DO NXT SURFACE 

INCREMENT TO NXT CYL 

POSITION FOR 

EXPCTD RKDA 

HAVE U FORMATTED ALL 203 CYLINDERS 
IF NOT, LOOP BACK & FORMAT THE 
NEXT CYLINDER 



CHECK 'READ FORMAT' FOR THE ENTIRE DISK 
♦THIS TEST READ FORMATS THE ENTRE DISK, WHICH WAS WRT 
♦FORMATTED IN THE PREVIOUS TEST. THE FOLLOWING CHECKING 
♦IS DONE 

*1. CNTRL RDY SETS WITHIN A CERTAIN TIME ON COMPLETION 
*OF FUNCTION 
*2. IF 'SIN' OCCURRED? 
*3. IF 'HE' OR 'ERR' OCCURRED? 
*4. RKDA INCREMENTED CORRECTLY. 
*5. IF THE CORRECT HEADER WAS READ. 



SEQ 006S 



MOV 


#-14, R2 


BIC 


#37, R1 


TST 


R3 


BNE 


8$ 


INC 


R3 


ADD 


#20, R1 


MOV 


R1 ,RS 


INC 


R5 


BR 


1$ 


ADD 


#40, R1 


MOV 


R1 ,R5 


INC 


R5 


CLR 


R3 


INC 


R4 


BNE 


1$ 
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3606 
3607 
3608 
3609 
3610 
3611 
3612 
3613 
3614 
3615 
3616 
3617 
3618 
3619 
3620 
3621 
3622 
3623 
3624 
3625 
362S 
3627 
3628 
3629 
3630 
3631 
3632 
3633 
3634 
3635 
3636 
3637 
3638 
3639 
3640 
3641 
3642 
3643 
3644 
3645 
3646 
3647 
3648 
3649 
3650 
3651 
3652 
3653 
3654 
3655 
3656 
3657 
3658 
3659 
3660 
3661 
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T24 CHECK 'READ FORMAT 1 FOR THE ENTIRE DISK 

*6. IF RKWC OVERFLOWED CORRECTLY. 

*12 SECTORS 11 CYLINDER) ARE READ AT A TIME. IF 'SIN' 
^OCCURS A DRIVE RESET IS DONE BEFORE READING THE NEXT 
^SECTOR. READING IS DONE IN THIS ORDER CYL 0-SUR 0; 
*CYL 0-SUR 1; CYL 1~SUR 0; CYL 1-SUR 1; CYL 2-SUR 0; 

*CYL 2-SUR 1;- CYL 312-SUR 1. IF TESTING. ON SIMULATOR, ONLY 

*THE LAST CYLINDER (312), LAST SECTOR (13), SURFACE 1 IS READ. 



SEO 0067 



j************ 



011004 000004 

011006 012737 000001 

011014 012737 011100 

011022 005037 001386 

011026 013701 001350 

011032 010102 

011034 005737 001344 

011040 001410 

011042 052701 014533 



011046 0S2702 014540 

011052 012737 17777? 

011060 000407 

011062 012705 177465 

011066 012737 177764 

011074 062702 000020 

011100 104413 



001206 
001110 


TST24! 


SCOPE 

MOV 

MOV 


#1 ,$TXMES 
#1$,SLPERR 






CLR 


INDX1 






MOV 
MOV 
TST 
BEO 
BIS 


DRIVAD.R1 
R1,R2 
SIMUL 
12S 
#14333, R1 






BIS 


#14S4Q,R2 


001370 




MOV 


#-1,EFLG1 


001370 


12$! 


BR 

MOV 

MOV 


IS 

#-313, R5 
#-14,EFLG1 






ADD 


#20, R2 




1$; 


CNT. RESET 



011102 104421 



011104 012703 033342 

011110 005037 001360 

011114 010377 170216 

011120 013777 001370 



011126 010177 170206 
011132 012777 002005 







TST. 


SIN 






11$; 


MOV 
CLR 
MOV 




#0UTBUF,R3 

INDX2 

R3,@RKBA 


170206 




MOV 
MOV 




EFLG1 ,@RKWC 
R1 ,@RKDA 


170172 




MOV 




#2Q05,@RKCS 



;D0 1 ITERATION 

SET RETURN ADRES FOR LUPING 

ON ERROR (SW 9) 

INDXI^O, SURFACE BEING READ 

INDX1«1, SURFACE 1 BEING READ 

GET DRIVE ADRES 

TESTING ON SIMULATOR? 

NO, BRANCH 

SET BITS FOR CYL 312, SEC 13, SUR 1 

ON SIMULATOR, CHECK ONLY CYL 312, 

SECTOR 13, SURFACE 1 

RKDA SHOULD INCRMNT TO THIS AFTR 

RD FMT OF 1 SECTOR 

SET COUNT FOR READING HDR 

FROM 1 SECTOR ONLY 

SET UP COUNT FOR 203 CYLINDERS 

SET COUNT FOR 12 HDRS TO BE 

READ FROM EACH CYLINDER 

THIS IS WHAT RKDA SHOULD INCREMENT 

BY, AFTER ' RD FMT' OF EACH CYLINDER 

GO, DO CONTROL RESET 

THIS IS A CALL FOR THE 'CNTRL- 

RESET' ROUTINE. A CONTROL ..ESET IS 

ISSUED AND AFTER A CERTAIN TIME 

IF THE 'CNTRL RDY' DOES NOT SET 

AN ERROR IS REPORTED. NOTE THAT 

THE PC IN ERROR MESSAGE IS THE 

PC WHERE 'CNT. RESET' IS LOCATED. 

THIS IS A VERY BASIC ERR & IF IT 

OCCURS GO BACK TO TEST 10 

CHECK IF SIN IS SET 

IF SET DO DRV-RESET TO CLR IT 

STORE ADRES OF BUFFER 

ADRES TO WHICH DATA IS TO BE X-FERRED 

FROM THE DISK 

SET UP WORD COUNT FOR 12 HEADERS 

TO BE READ OFF EACH CYLINDER 

(ONLY 1 FOR SIMULATOR) 

ADRES THE DRIVE WITH CORRECT 

CYLINDER & SECTOR ADRES 

READ FORMAT, GO 
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SEO 0063 



3662 


011140 


105777 


170166 


3663 


011144 


100411 




3664 


011146 


005237 


001360 


3665 


011152 


001372 




3666 








3667 


011154 


004737 


020774 


3668 


011160 


010137 


001202 


3669 








3670 


011164 


104416 




3671 








3672 


011166 


104045 




3673 








3674 








3675 








3676 








3677 








3678 








3679 


011170 


032777 


001000 


3680 


011176 


001405 




3681 


011200 


004737 


021002 


3682 


011204 


010137 


001170 


3683 








3684 


011210 


104001 




3685 








3686 








3687 


011212 


004737 


021226 


3688 








3689 


011216 


104046 




3690 








3691 








3692 








3693 








3694 


011220 


020277 


170114 


3695 


011224 


001410 




3696 


011226 


010237 


001202 


3697 


011232 


104415 




3698 








3699 


011234 


017737 


170100 


3700 


011242 


104416 




3701 








3702 


01 1244 


104040 




3703 








3704 








3705 








3706 


01 1246 


013700 


001370 


3707 








3708 


011252 


010104 




3709 


011254 


042704 


160037 


3710 


011260 


020413 




3711 


011262 


001412 




3712 


011264 


010437 


001164 


3713 


01 1270 


01 1337 


001166 


3714 


011274 


010037 


001162 


3715 


011300 


062737 


000014 


3716 








3717 


011306 


104043 





2$: 



170130 3$'. 



4$ I 



TSTB 
BMI 
INC 
3NE 


©RKCS 

3$ 

INDX2 

2$ 


JSR 
MOV 


PCGT4RG 
R1.SREG10 


BRKDA4 




ERROR 


45 



BIT 


#1000,»RKDS 


BEQ 


4$ 


JSR 


PC.GT3RG 


MOV 


R1.SREG3 



JSR PCCHKHE1 
ERROR 46 



CMP 
BEO 
MOV 
BRKDAO 

MOV 
BRKDA4 



R2,@RKDA 

6$ 

R2,$REG10 



@RKDA,SREG10 



MOV 


R1 ,R4 


BIC 


#160037, R4 


CMP 


R4,(R3) 


BEO 


8$ 


MOV 


R4.SREG1 


MOV 


(R3),$REG2 


MOV 


RO.SREGO 


ADD 


#14,SREG0 



DID CNTR1 RDY SET? 
YES, BRANCH 

NO, HAVE U WAITED LONG ENOUGH? 
IF NOT, LOOP BACK & WAIT FOR IT 
IF YES, REPORT ERROR 
GO, GET RKCS, ER, DS . DA 
GET DRIV-ADRES STARTING WHICH 
'READ FORMAT' WAS DONE- 
GO TO 'BDA4' & BREAK CONTENTS OF 
SREG10 INTO DR #, CYL, SUR , SEC BITS 
CNTRL RDY DID NOT SET AFTER 
READ FORMAT. 'RKDA' IN EROR MSGE 
GIVES THE CONTENTS OF RKDA AT THE 
TIME OF ERROR. 

READ FMT WAS DONE STARTING AT <DSK»ADRES> 
INDICATED IN EROR MSGE, 

DID 'SIN' SET? 

NO, BRANCH 

GO, GET RKCS, ER, DS 

GET DISK-ADRES WHERE 'SIN' 

OCCURED 

SIN ERROR ON DOING RD FMT 

TO CYL INDICATED IN SREG3 

CHECK IF 'ERR' OR 'HE' BIT IS SET, 

IF YES, RETURN HERE. 

HE OR ERR WHILE DOING A READ 

FORMAT. 'RKDA' IN EROR MSGE GIVES 

THE CONTENTS OF RKDA AT THE TIME OF ERROR 

READ FMT WAS DONE STARTING AT <DSK-ADRES> 

INDICATED IN EROR MESGE 

DID RKDA INCREMENT CORRECTLY BY 12 SEC 

GET EXPCTD RKDA 

GO TO 'BDAO' & BREAK CONTENTS OF 

SREG10 INTO DR #, CYL, SUR , SEC BITS 

GET RECVD RDKA 

GO TO ' BDA4 1 & BREAK CONTENTS OF 

SREG10 INTO DR M, CYL, SUR , SEC BITS 

RKDA DID NOT INCREMENT BY 12 SECTORS 

AFTER RD FMT WAS DONE. ADRES 

OF CYLINDER IN ERROR CAN BE OBTAINED 

FROM 'EXPCTD' RDDA 

SET UP COUNT FOR 12 HEADERS TO B CHKD 

(ONLY 1 , IF SIMULATOR) 

GET DRIV-ADRES FROM WHERE RDFMT WAS DONE 

GET THE CYLINDER ADRES ONLY. (HEADER) 

IS THE RECVD HEADER SAME AS EXPCTD? 

GET EXPCTD HEADER WORD 
GET HEADER WORD RECVD 

GET THE SECTOR (OCTAL NO) WHICH DID 

NOT GIVE THE CORRECT HEADER 

DID NOT RECIEVE THE CORRECT HEADER 
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SEQ 0089 



3718 
3719 
3720 
3721 
3722 
3723 
3724 
3725 
3726 
3727 
3728 
3729 
3730 
3731 
3732 
3733 
3734 
3735 
3736 
3737 
3738 
3739 
3740 
3741 
3742 
3743 
3744 
3745 
3746 
3747 
3748 
3749 
3750 
3751 
3752 
3753 
3754 
3755 
3756 
3757 
3758 
3759 
3760 
3761 
3762 
3763 
3764 
3765 
3766 
3767 
3768 
3769 
3770 
3771 
3772 
3773 



011310 005723 



(R3) + 



011312 
01 1314 



01 1316 
01 1322 



01 1324 
011330 

01 1332 
011336 
01 1340 
011344 
01 1350 
011352 

01 1356 
01 1362 
01 1366 
011372 
011376 
011400 
01 1404 
01 1406 
011410 



005200 
001361 



004737 021316 
104041 



005737 
001031 

005737 
001011 
005237 
062701 
010102 
062702 

000137 
005037 
042701 
062701 
010102 
062702 
005205 
001402 
000137 



INC 
BNE 


RO 
7$ 


JSR 


PC.CHKWC 


ERROR 


41 



001356 
000020 

000020 

011100 
001356 
000037 
000040 

000020 



WORD FROM 'SECTOR' AS INDICATED 

(NOTE SECTOR # IS OCTAL) 

INCREMENT POINTER TO THE NXT WORD 

IN MEMORY WHERE THE RECVD HDR IS STORED 

HAVE U CHECKED ALL 12 HEADERS? 

IF NOT, LOOP BACK & CHK THE NXT. 

YES, ALL HEADERS FOR THIS CYLINDER 

CHECKED. 

CHECK IF RKWC OVERFLOWED TO 0, IF 

NOT RETURN HERE. 

RKWC DID NOT OVERFLOW AFTER DOING 

RDFMT OF 12 SECTORS ON THE CYLINDER 

NOTE THAT 'RKDA' IS THE INCREMENTED 

RKDA AFTER THE RDFMT 

TSTING ON SIMULATOR? 

;IF YES, EXIT 

NO 

DOING SURFACE 1 

YES, BRANCH 

NO 

INCREMENT DRIV ADRES TO THE NXT SURFACE 

THIS IS WHAT RKDA SHOULD INCREMENT 
TO, AFTER READ FMT OF THE CYLINDER 
GO RD FMT THE NXT SURFACE 

CLR SEC, SURFACE BITS 

INCREMENT TO NXT CYL 

THIS IS WHAT RKDA SHOULD BE 

AFTER RD FMT OF CYLINDER 

HAVE U DONE ALL CYLINDERS? 

;EXIT 

IF NOT, LOOP BACK & READ FMT FROM 

THE NXT CYLINDER 



CHECK 'READ' OF THE ENTIRE DISK 
*READ OF THE ENTIRE DISK (ONE WORD PER SECTOR) IS DONE 
*IN THIS TEST. IN A PREVIOUS TEST THE FIRST WORD OF 
*EVERY SECTOR WAS WRITTEN LIKE A PSUEDO-HEADER (DRIVE #, 
*CYLINDER #, SURFACE & SECTOR #). THESE PSUEDO HEADERS 
♦WILL BE READ & CHECKED IN THIS TEST, PROVING THAT ANY 
*SECTOR CAN BE ACCESSED AND READ. 
*THE FOLLOWING CHECKING IS DONE 

*1. CNTRL RDY SETS WITHIN A CERTAIN TIME ON COMPLETION 
*0F FUNCTION. 
*2. IF 'SIN' OCCURRED? 
*3. IF «HE' OR 'ERR' OCCURRED? 
*4. THE CORRECT FIRST WORD FROM EVERY SECTOR 
*WAS RECEIVED. THIS WORD REFLECTS THE ABSOLUTE 
*DISK ADDRESS (DRV # f CYL #, SUR, SEC#) OF THAT SECTOR. 
*5. IF RKDB CONTAINED THE CORRECT WORD. 
♦IF 'SIN' OCCURS DRIVE RESET IS DONE BEFORE READING 
*TH£ NEXT SECTOR. READ IS DONE' IN THIS ORDER SEC 0-11 
*CYL SUR -> SEC 0-11 CYL SUR 1 -> SEC 0-11 CYL 1,. 



TST 


SIMUL 


BNE 


TST25 


TST 


INDX1 


BNE 


10$ 


INC 


INDX1 


ADD 


#20, R1 


MOV 


R1 ,R2 


ADD 


#20, R2 


JMP 


1$ 


CLR 


INDX1 


BIG 


#37, R1 


ADD 


#40, R1 


MOV 


R1 ,R2 


ADD 


#20, R2 


INC 


R5 


BEQ 


TST25 


JMP 


1$ 



01 1432 

01 1436 

011440 
01 1444 
011450 
011452 
011456 
011460 
011464 
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3774 

3775 
3776 
3777 
3778 
3779 
3780 
3781 
3782 
3783 
3784 
3785 
3786 
3787 
3788 
3789 
3790 
3791 
3792 
3793 
3794 
3795 
3796 
3797 
3798 
3799 
3800 
3801 
3802 
3803 
3804 
3805 
3806 
3807 
3808 
3809 
3810 
3811 
3812 
3813 
3814 
3815 
3816 
3817 
3818 
3819 
3820 
3821 
3822 
3823 
3824 
3825 
3826 
3827 
3828 
3829 
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IF TESTING ON SIMULATOR ONLY LAST CYLINDER (312), 
SECTOR (13), SURFACE 1 IS READ. 



011414 000004 TST25: 

011416 012737 000001 001206 
011424 012737 011470 001110 



012703 
005004 

01 3701 
005737 
001403 
052701 
000404 
012700 
012705 



001350 
001344 



177764 
177465 



011470 104413 



011472 104421 



011474 005037 001356 
011500 010377 167632 



011504 012777 177777 
011512 010177 167622 



011516 012777 



000005 
167602 



011524 105777 

011530 100411 

011532 005237 001356 

011536 001372 

011540 004737 020774 

011544 010137 001202 

011550 104416 

011552 104045 



011554 032777 001000 167544 3$: 

011562 001405 

011564 004737 021002 



SCOPE 




MOV 


#1 .STIMES 


MOV 


#1$,$LPERR 


MOV 


#0UTBUF,R3 


CLR 


R4 


MOV 


DRIVAD.R1 


TST 


SIMUL 


BEQ 


10$ 


BIS 


#14533, R1 


BR 


1$ 


MOV 


#-14,R0 


MOV 


#-313, R5 


CNT. RESET 



TST. SIN 




CLR 
MOV 


INDX1 
R3,@RKBA 


MOV 
MOV 


#-1 ,@RKWC 
R1 ,@RKDA 


MOV 


#5, ©RKCS 


TSTB 

BMI 
INC 
BNE 


@RKCS 
3$ 

INDX1 
2$ 


JSR 
MOV 
BRKDA4 


PCGT4RG 
R1 ,$REG10 



BIT #1000,@RKDS 

BEQ 4$ 

JSR PCGT3RG 



;D0 1 ITERATION 

SET RETURN ADRES FOR 

LOOPING ON ERROR (SW9) 

FLAG, CLEAR WHEN READING SURFACE 

SET WHEN READING SURFACE 1 

GET DRIVE ADDRESS 

TSTING ON SIMULATOR? 

IF NOT BRANCH 

SET ADRES BITS FOR LAST CYL (312) 

LAST SECTOR (13), SURFACE 1 

SET COUNT FOR 12 SECTORS 

SET UP COUNT FOR 203 CYLINDERS 

GO, DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERR & IF IT 
OCCURS GO BACK TO TEST 10 
GO CHECK SIN, IF SET DO 
DRIVE RESET TO CLR IT 

ADRES TO WHICH DATA IS TO B X-FERKED 

FROM THE DISK 

SET UP WORD COUNT 

ADRES THE DRIVE WITH CORRECT 

CYLINDER & SECTOR ADRES 

READ, GO 

DID CNTRL RDY SET? 

YES, BRANCH 

NO, HAVE U WAITED LONG ENOUGH 

IF NOT, LOOP BACK & WAIT FOR IT 

IF YES, REPORT ERROR 

GO, GET RKCS, ER, DS.DA 

GET DISK-ADRES WHERE ERROR OCCURED 

GO TO 'BDA4' & BREAK CONTENTS OF 

SREG10 INTO DR # ,CY L , SUR , SEC BITS 

CNTRL RDY DID NOT SET AFTER DOING 

A 1 WORD READ FROM ADRES AS 

INDICATED IN <DISK~ADRES> 

'RKDA' IN EROR MSGE GIVES THE 

CONTENTS OF RKDA AT THE TIME OF ERROR 

DID 'SIN' SET? 

NO, BRANCH 

GO, GET RKCS, ER , DS 
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3830 


011570 


010137 


001170 


3831 


011574 


104001 




3832 








3833 


011576 


004737 


021226 


3834 








3835 


011602 


104046 




3836 








3837 








3838 








3839 








3840 


011604 


020113 




3841 


01160© 


001407 




384S 


011810 


010137 


0Q11M 


3843 


011114 


01 1337 


©01164 


3844 


011620 


010137 


001166 


3845 


011624 


104044 




3848 








384? 








3848 








3849 








3850 








3851 








3852 








3853 








3854 


01162© 


020177 


167610 


3855 


011632 


001406 




3856 


011634 


010137 


001162 


3857 


011640 


017737 


167476 


3858 


011646 


104037 




3859 








3860 








3861 








3862 








3863 








3864 








3865 








3866 


01 1650 


005737 


001344 


3867 


01 1654 


001022 




3368 


01 1656 


005201 




3859 


011660 


005200 




3870 


011662 


001302 




3871 








3872 


011664 


012700 


177764 


3873 


011670 


042701 


000037 


3874 


011674 


005704 




3875 


01 1676 


001004 




3876 


01 1700 


005204 




3877 


011702 


062701 


000020 


3878 


01 1706 


000570 




3879 


011710 


005004 




3880 


011712 


062701 


000040 


3881 


011716 


005205 




3882 


011720 


001263 




3883 








3884 








3885 
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SEQ 0071 



5S: 



6$; 



MOV 


R1 .SREG3 


ERROR 


1 


JSR 


PC.CHKHE1 


ERROR 


46 



CMP 


R1 ,(R3) 


BEO 


6$ 


MOV 


R1 ,SREG0 


MOV 


(R3),$REG1 


MOV 


R1,$REG2 


ERROR 


44 



CMP 


R1,»RKDB 


BEQ 


7$ 


MOV 


R1,$REG0 


MOV 


@RKDB,$REG1 


ERROR 


37 



TST 


SIMUL 


BNE 


TST26 


INC 


R1 


INC 


RO 


BNE 


1$ 


MOV 


#-14, R0 


BIC 


#37, R1 


TST 


R4 


BNE 


9$ 


INC 


R4 


ADD 


#20, R1 


BR 


1$ 


CLR 


R4 


ADD 


#40, R1 


INC 


R5 


BNE 


1$ 



GET DISK-ADRES WHERE SIN 0CCURED3 

'SIN' ERROR ON DOING READ FROM 

DISK-ADRES INDICATED IN SREG3 

CHECK IF 'ERR' OR 'HE' BIT IS SET, 

IF YES, RETURN HERE. 

'HE' OR 'ERR' ON DOING A READ OF 

1 WORD FROM ADRES AS INDICATED 

IN <DISK-ADRES> 

'RKDA' IN ERQR MSGE GIVES THE 

CONTENTS OF RKDA AT THE TIME OF EROR 

WAS THE CORRECT DATA WORD RECVD? 

GET EXPCTD DATA WORD 

GET DATA WORD RECVD 

GET DISK-ADRES 

DID NOT RECIEVE THE CORRECT 

DATA WORD FROM DISK ON DOING 

1 WORD READ FROM 'DISK-ADRES' 

AS INDICATED BY 'EXPCTD' DATA WORD 

NOTE THAT IN A PREVIOUS TEST THE 

FIRST WORD OF EACH SECTOR IS UNIQUELY 

WRITTEN WITH A WORD GIVING THE 

ABSOLUTE ADDRESS OF THAT SECTOR IH 

TERMS OF, DRIV #, CYL ADRES, SUR, SEC ADRS. 

DOES RKDB CONTAIN CORRECT WORD 

YES, BRANCH 

NO, GET EXPCTD RKDB 

GET RKDB RECVD 

RKDB ERROR ON READ. 

FOR RK11C, AFTER A READ RKDB 

CONTAINS CHECKSUM FOR THE SECTOR 

READ. 

WHEREAS FOR RK11D, AFTER READ 

RKDB CONTAINS THE LAST WORD 

READ FROM THAT SECTOR <S 

X-FERRED TO MEMORY 

TESTING ON SIMULATOR? 

;IF YES, EXIT 

INCREMENT TO ADRES NEXT SECTOR 

HAVE U CHKD ALL 12 SECTORS? 

IF NOT, LUP BAK & CHK THE NXT 

IF YES. .. 

RESET THE COUNT FOR 12 SECTORS 

CLEAR SECTOR, SURFACE BITS 

DOING SURFACE 1? 

YES, BR.'.NCH 

NO 

INCREMENT THE ADRES TO NXT SURFACE 

GO READ SURFACE 1 

INCREMENT TO NXT CYL 

HAVE U CHKD ALL 203 CYLINDERS 

IF NOT, LOOP BACK & CHK THE NXT CYLINDER 

YES 
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SEO 0072 



3887 








3888 








3889 








3890 








3891 








3892 








3893 








3894 


011722 


000004 




3895 


011724 


012737 


000005 


3896 


011732 


012703 


001372 


3897 








3898 


011736 


005037 


001356 


3899 








3900 


011742 


013700 


001332 


3901 


011746 


013701 


001326 


3902 


011752 


013702 


001330 


3903 


011756 


012737 


011764 


3904 








3905 


011764 


000240 




3906 


011766 


104413 




3907 








3908 








3909 








3910 








3911 








3912 








3913 








3914 








3915 








3916 


011770 


104421 




3917 








3918 








3919 








3920 


011772 


013704 


0013S0 


3921 


C11776 


051304 




3922 


012000 


010477 


167334 


3923 


012004 


012710 


000011 


3924 








3925 


012010 


104412 




3926 








3927 


012012 


104021 




3928 








3929 








3930 








3931 


012014 


005005 




3932 


012016 


032711 


000100 


3933 


012022 


001005 




3934 


012024 


005205 




3935 


012026 


001373 




3936 


012030 


004737 


020774 


3937 


012034 


104026 




3938 








3939 


012036 


032711 


001000 


3940 


012042 


001403 




3941 


012044 


004737 


020774 



TST26 


: SCOPE 
MOV 
MOV 


05.STIMES 
#SEEK0,R3 




CLR 


INDX1 




MOV 
MOV 
MQV 
MOV , 


RKCS.RO 
RKDS.R1 
RKER,R2 
#1$,$LPERR 


1$: 

2$ i 


NOP 

CNT. RESET 



CHECK '^EK' FUNCTION, WITH DIFFERRENT VELOCITY MODES 
THIS TEST CHECKS SEEK IN DIFFERENT VELOCITY MODES (DIFF <3, 

3 < DIFF < 31 DIFF > 31 ) . FOR THESE 3 BASIC VELOCITIES SEEK IS DONE BOTH 
IN FWD AND REV DIRECTION TO CHECK THE ADDER * DIFFERENCE LOGIC. IF 
WHILE DOING A SEEK 'SIN' OCCURS, A DRIVE RESET IS DONE TO INITIALIZE 
THE POSITIONING LOGIC 

; ;D0 5 ITERATIONS 
; INITIALIZE POINTER TO THE FIRST 
:SEEK ADDRESS & 

;INDX1, WHEN INDICATES SEEK fN FWD DIRECTION 
WHEN 1 INICATES SEEK IN REV DIRECTION 



SET RETURN ADRES FOR LUPING ON 
EROR (SW 9) 

GO, DO CONTROL RESET 
THIS IS A CALL FOR THE "CNTRL- 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERRC^ IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERR & IF IT 
OCCURS GO BACK TO TEST 10 
GO, CHECK IF SIN IS SET, IF SET 
DO DRV-RESET TO CLEAR IT 



GET DRIV-ADRES 
SET CYLINDER BITS 
ADDRS THE DRIVE 
SET 'SEEK' , 'GO' 

GO CHECK IF CONTROL RDY IS SET 

IF SO, SKIP THE EROR MESSAGE. 

'CNTRL RDY 1 DID NOT SET AFTER 

SENDING CYL ADD TO THE DRIV, "ADD ACK« 

FROM DRIVE SHLD HAVE COME BACK 

THEREUPON SETTING 'CNTRL RDY 1 

DID R/W/S RDY SET? 

YES, BRANCH 

NO, WAIT 

WAITED LONG? 

GO, GET RKCS, ER. OS. DA 

R/W/S RDY DID NOT SET ON 

COMPLETION OF SEEK 

DID SIN SET? 

NO, BRANCH 

GO, GET RKCS, ER, DS , DA 





TST, SIN 






MOV 


DRIVAD,R4 




BIS 


(R3),R4 




MOV 


R4,@RKDA 




MOV 


#11 ,mo 




CHKCRDY 






ERROR 


21 


4$'. 


CLR 


R5 


5$: 


BIT 


#100, @R1 




BNE 


6$ 




INC 


R5 




BNE 


5$ 




JSR 


PCGT4RG 




ERROR 


26 


B%: 


BIT 


#1000, @R1 




BEO 


7$ 




JSR 


PC.GT4RG 
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3942 


012050 


104001 




3943 


012052 


032710 


140000 


3944 


012056 


001403 




3945 


012060 


004737 


020774 


3946 


01 2064 


104022 




3947 








3948 








3949 








3950 


012066 


022710 


000210 


3951 


012072 


001406 




3952 


012074 


01 1037 


001164 


3953 


012100 


012737 


000210 001162 


3954 


012106 


104024 




3955 








3956 








3957 


0121 10 


020477 


167224 


3958 


0121 14 


001406 




3959 


0121 16 


010437 


001 162 


3960 


012122 


01 7737 


167212 001164 


3961 


012130 


104027 




3962 








3963 


012132 


010477 


167202 


3964 


012136 


012777 


033342 167172 


3965 


012144 


012777 


177777 167162 


3966 


012152 


012710 


002005 


3967 


012156 


104414 




3968 


012160 


021337 


033342 


3969 


012164 


001410 




3970 


012166 


005037 


001162 


3971 


C12172 


01 1337 


001164 


3972 


012176 


01 3737 


033342 001166 


3973 


012204 


104043 




3974 








3975 








3976 








3977 


012206 


005737 


001356 


3978 


012212 


001007 




3979 


O 1 2214 


005723 




3980 


012216 


022703 


001400 


3981 


012222 


001260 




3982 


012224 


005237 


001356 


3983 


012230 


005743 




3984 


012232 


005743 




3985 


012234 


022703 


001370 


3986 


012240 


001251 




3987 








3988 








3989 








3990 








3991 








3992 








3993 








3994 








3995 








3996 








3997 
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SIN SET ON DOING SEEK 

DID 'HE' OR 'ERR' SET? 

YES 

GO, GET RKCS, ER. DS . DA 

'ERR OF 'HE 1 BIT SET WHEN 

SEEKING TO CYL AS INDICATED 

IN RKDA 

DOES RKCS STILL CONTAIN THE 'SEEK 1 FNCTION 

YES - EXIT 

NO, GET RKCS RECVD 

GET EXPCTD RKCS 

RKCS SHOULD CONTAIN THE 'SEEK' BITS 

IF NOT, ERROR 

DID RKDA CHANGE? 

NO 

YES, GET EXPCTD? 

GET RKDA 

RKDA CHANGED AFTER DOING SEEK 

ADRES THE DRIVE. SEC 

READ ONE HEADER INTO THIS 

BUS ADRES 

GO, READ FORMAT 

WAIT FOR CNTRL RDY 

WAS THE CORRECT READE4R READ (FROM 

CYLINDER TO WHICH SEEK WAS DONE BEFORE) 

STORE SEC # FROME WHERE HDP WAS RD (0) 

GET EXPCTD HEADER 

GET HDR RECVD 

WRONG HDR WAS RECVD FROM CYLINDER (ADRES 

IN ER MSGE). NOTE THAT A PURE SEEK WAS 

DONE TO THIS CYL BEFORE READING HDR 

USING READ FORMAT 

SEEK IN REVRSE DIRECTION? 

YES, BRANCH 

NO, INCREMENT PTR TO NXT SEEK ADRES 

DONE WITH ALL SKS IN FWD DIR? 

NO, GO & DO NXT ONE 

SET FLAG INDICATING SK IN REVRSE 

POSITION PTR TO NXT SK IN REV 

DONE WITH ALL? 

IF NOT, DO NXT ONE 



CHECK DRIVE RESET FROM LAST CYLINDER 
*THE HEADS ARE POSITIONED ON THE LAST CYLINDER (DOING 
*AN IMPLIED SEEK-READ). THEN A DRIVE RESET IS ISSUED. 
•IT'S CHECKED IF THE HEADS WERE BROUGHT BACK TO BY 
*DOING A 1 WORD READ & CHECKING THAT THE CORRECT WORD 
*WAS RECEIVED. IF TESTING ON SIMULATOR THIS TEST IS SKIPPED. 



SEO 0073 



ERROR 


1 


BIT 


#140000, @R0 


BEO 


8$ 


JSR 


PC.GT4RG 


ERROR 


22 


CMP 


#210,@>R0 


BEO 


9$ 


MOV 


@R0,$REG1 


MOV 


#210, SREGO 


ERROR 


24 


CMP 


R4,@RKDA 


BEQ 


10S 


MOV 


R4,$REG0 


MOV 


@RKDA,$REG1 


ERROR 


27 


MOV 


R4 f @RKDA 


MOV 


#OUTBUF,g*RKBA 


MOV 


#-1 ,@RKWC 


MOV 


#2005, @R0 


CNT.RDY 




CMP 


(R3),0UTBUF 


BEO 


11$ 


CLR 


SREGO 


MOV 


(R3) ,$REG1 


MOV 


0UTBUF,$REG2 


ERROR 


43 



TST 


INDX1 


BNE 


12$ 


TST 


(R3) + 


CMP 


#SEEK2+2,R3 


BNE 


1$ 


INC 


INDX1 


TST 


~(R3) 


TST 


-(R3) 


CMP 


#SEEKG-2,R3 


BNE 


1$ 
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3998 


012242 


000004 




3999 


012244 


012737 


000005 


4000 


012252 


005737 


001344 


4001 


012256 


001124 




4002 


012260 


013701 


001332 


4003 


012264 


104413 




4004 








4005 








4006 








4007 








4008 








4009 








4010 








4011 








4012 








4013 


012266 


005000 




4014 


012270 


012703 


033342 


4015 


012274 


013704 


001350 


4016 


012300 


010405 




4017 


012302 


052705 


014500 


4018 


012306 


010577 


167026 


4019 


012312 


012777 


177777 


4020 


012320 


01 0377 


167012 


4021 








4022 


012324 


012711 


000005 


4023 








4024 


012330 


005000 




4025 


012332 


104414 




4026 








4027 








4028 








4029 








4030 








4031 








4032 


012334 


020513 




4033 


012336 


001407 




4034 


012340 


01 0537 


001162 


4035 


012344 


01 1337 


001164 


4036 


012350 


010537 


001166 


4037 


012354 


104044 




4038 








4039 








4040 








4041 








4042 


012356 


01271^ 


000015 


4043 


012362 


104414 




4044 








4045 








4046 








4047 








4048 








4049 








4050 


012364 


005000 




4051 


012366 


032777 


000100 


4052 


012374 


00101 1 




4053 


012376 


012702 


177763 



SCOPE 




MOV 


#5,$TIMES 


TST 


SIMUL 


BNE 


TST30 


MOV 


RKCS.R1 


CNT. RESET 



CLR 


RO 


MOV 


#0UTBUF,R3 


MOV 


DRIVAD.R4 


MOV 


R4.R5 


BIS 


#14500, R5 


MOV 


R5,@RKDA 


MOV 


#-1 ,@RKWC 


MOV 


R3,PRKBA 



CLR RO 
CNT.RDY 



CMP 


R5,@R3 


BEQ 


3$ 


MOV 


R5, SREGO 


MOV 


@R3,SREG1 


MOV 


R5,SREG2 


ERROR 


44 



MOV #15,PR1 
CNT RDY 



CLR 


RO 




BIT 


#100 


@RKDS 


BNE 


5S 




MOV 


#-15 


R2 



;D0 5 ITERATIONS 

R U ON A SIMULATOR? 

;YES, EXIT 

GO, DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET 1 IS LOCATED. 
THIS IS A VERY BASIC ERR & IF IT 
OCCURS GO BACK TO TEST 10 

ADRES WHERE DAT : A WILL BE READ INTO 



;SET CYL ADRES=312 (OCTAL) 
;ADRES THE DRIVE, LAST CYLINDER 
;READ 1 WORD 
;INTO THIS MEMORY ADRES 

;READ, GO 



THIS IS A CALL FOR CN.RDY ROUTINE 

WHICH WAITS FOR CNTRL RDY TO SET. 

A RETURN IS MADE AFTER CNTRL RDY 

SETS. IF WITHIN A CERTAIN TIME 

CNTRL RDY DOESN'T SET AN ERROR 

MESSAGE IS GIVEN. WAITING TIME 

883 MS FOR 11/20, 175 MS FOR 11/45 

WAS THE CORRECT WORD READ? 

YES, SEEK TO 312 WAS DONE C0RRECTLY5,® 

GET EXPCTD WORD 

GET WORD RECVD 

GET DSK-ADRES FROM WHERE WORD WAS READ 

DID NOT READ BACK CORRECT WORD FROM 

LAST CYL, SEC 0. IF TEST 45 & 46 

WERE SUCCESSFULLY DONE THIS 

ERROR MEANS THAT IMPLIED SEEK 

TO CYL 312 COULD NOT B DONE 

DRIVE RESET, GO 

THIS IS A CALL FOR CN.RDY ROUTINE 

WHICH WAITS FOR CNTRL RDY TO SET. 

A RETURN IS MADE AFTER CNTRL RDY 

SETS. IF WITHIN A CERTAIN TIME 

CNTRL RDY DOESN'T SET AN ERROR 

MESSAGE IS GIVEN. WAITING TIME 

883 MS FOR 11/20, 175 MS FOR 11/45 

DID R/W/S RDY SET? 

YES, BRANCH 

IF U R ON A SLOWER MACHINE 
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SEQ 0075 



4054 


012402 


005202 




4055 


012404 


001376 




4056 








4057 








4058 








4059 








4060 








4061 








4062 








4063 








4064 








4065 


012406 


005200 




4066 


012410 


001366 




4067 








4068 


012412 


004737 


020774 


4069 


012416 


104026 




4070 








4071 


012420 


032711 


140000 


4072 


012424 


001403 




4073 








4074 


012426 


004737 


020774 


4075 


012432 


104022 




4076 








4077 


012434 


005205 




4078 


012436 


020577 


166676 


4079 


012442 


001406 




4080 


012444 


010537 


001162 


4081 


012450 


017737 


166664 001164 


4082 


012456 


104054 




4083 








4084 








4085 


012460 


012777 


177777 166646 


4086 


012466 


010377 


166644 


4087 


012472 


010477 


166642 


4088 








4089 


012476 


012711 


000005 


4090 








4091 


012502 


005000 




4092 


012504 


104414 




4093 








4094 








4095 








4096 








4097 








4098 








4099 


012506 


020413 




4100 


012510 


001407 




4101 


012512 


010437 


001162 


4102 


012516 


01 1337 


001164 


4103 


012522 


010437 


001166 


4104 


012526 


104044 




4105 








4106 








4107 








4108 








4109 









INC 

BNE 



R2 
.-2 



INC 

BNE 


RO 
4$ 


dSR 
ERROR 


PCGT4RG 
26 


BIT 
BEQ 


#140000, @R1 
6$ 


JSR 
ERROR 


PCGT4RG 
22 


INC 
CMP 
BEQ 
MOV 
MOV 
ERROR 


R5 

R5,@RKDA 

7$ 

R5,$REG0 

@RKDA,$REG1 

54 


MOV 
MOV 

MOV 


#-1 ,@RKWC 

R3,@RKBA 

R4,@RKDA 


MOV 


#5,M1 


CLR 

CNT.RDY 


RO 



CMP 


R4,@R3 


BEQ 


TST30 


MOV 


R4.SREG0 


MOV 


@R3,$REG1 


MOV 


R4.SREG2 



& DO NOT NEED SUCH A LARGE MACHINE 
TIME LOOP, CHANGE THESE 3 
INSTRUCTIONS TO 'NOP' THE 
LOOP TIME WILL BE REDUCED 
TO 1100 MS 

THE TOTAL TIME FOR THE ABOVE 

LOOPS (W/O PUTTING 'NOP'S) IS 

5304 MS FOR 11/20 AND 

1061 MS FOR 11/45 WITH MOS 

OR BIPOLAR MEMORY 

WAITED LONG? 

IF NOT, LUP BAK & WAIT 

IF YES, ERROR 

GET RKCS,ER,DS,DA 

R/W/S RDY DID NOT SET AFTER 

DOING DRIVE RESET 

DID HE OR ERR BIT SET? 

IF NOT, BRANCH 

GET RKCS.ER.DS.DA FOR ERROR MESSAGE 

HE OR ERR BIT SET ON DOING DRIVE 

RESET FROM LAST CYLINDER 

POSITION R5 TO EXPCTD RKDA 

DID THE CYL ADRES BITS IN RKDA GET CHANGED? 

NO, BRANCH 

GET EXPCTD RKDA 

GET RKDA RECVD 

CYLINDER ADRES BITS IN RKDA 

GOT CHANGED AFTER 

DRIVE RESET, FROM LAST CYLINDER 

READ 1 WORD 

INTO THIS ADRES 

FROM THIS DSK ADRES-CYL 0, SEC 

;READ, GO 



THIS IS A CALL FOR CN.RDY ROUTINE 
WHICH WAITS FOR CNTRL RDY TO SET. 
A RETURN IS MADE AFTER CNTRL RDY 
SETS. IF WITHIN A CERTAIN TIME 
CNTRL RDY DOESN'T SET AN ERROR 
MESSAGE IS GIVEN. WAITING TIME 
883 MS FOR 11/20, 175 MS FOR 11/45 
WAS THE CORRECT WORD READ? 
;YES, EXIT 
GET EXPCTD WORD 
GET WORD RECVD 

GET DISK ADRES WHERE ERROR CCCURED 
DID NOT READ CORRECT WORD FROM 
CYL 0, SEC 0. IF TEST 45 & 46 
WERE SUCCESSFULLY DONE THIS 
ERROR COULD MEAN THAT DRIVE-RESET 
DID NOT BRING HEADS BACK TU 0. 
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4110 








4111 








41 12 








41 13 








41 14 








4115 








4116 








4117 








41 18 








4119 


012530 


000004 




4120 


012532 


104413 




4121 








4122 








4123 








4124 








4125 








4126 








4127 








4128 








4129 








4130 


012534 


104421 




4131 








4132 


012S36 


013704 


001333 


4133 








4134 








4135 








4136 








4137 








4138 








4139 








4140 








4141 








4142 








4143 








4144 








4145 








4146 








4147 


012542 


012700 


033342 


4148 


012546 


012701 


177401 


4149 


012552 


012702 


177400 


4150 


012556 


012703 


177400 


4151 








4152 


012562 


010320 




4153 


012564 


005202 




4154 


012566 


060103 




4155 


012570 


010320 




4156 


012572 


005202 




4157 


012574 


001374 




4158 








4159 


012576 


012777 


177400 


4160 


012604 


012777 


033342 


4161 


012612 


013777 


001350 


4162 








4163 


012620 


012714 


000003 


4164 








4165 


012624 


105714 





;*TEST 30 



************************************* 
'WRITE' - 256 WORD BLOCK ON SECTOR 0, 



CYLINDER 



;THE TEST BELOW SHOULD BE CONSIDERED AS A SET UP PHASE FOR 
;THE FOLLOWING TEST. IT WRITES A BLOCK OF 256 WORDS IN 
;SECTOR 0, CYLINDER WITH A SPECIFIC PATTERN AND THIS WRITTEN 
jBLOCK WILL BE MADE USE OF IN THE NEXT TEST TO CHECK 
;OUT ' WHITE-CHECK ' AND 'READ CHECK' FUNCTIONS. 
** ****************************************** ************** 
SCOPE 
CNT. RESET ;GO, DO CONTROL RESET 

;THIS IS A CALL FOR THE 'CNTRL- 
;RESET' ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
;IF THE 'CNTRL RDY' DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
;THE PC IN ERROR MESSAGE IS THE 
;PC WHERE 'CNT. RESET' IS LOCATED. 
?THIS IS A VERY BASIC ERR& IF IT 
;OCCURS GO BACK TO TEST 10 
TST.SIN {CHECK IF SIN IS SET, IF SET 

;DO DRIVE RESET TO CLEAR IT 



MOV 



RKCS.R4 



?THE FOLLOWING CODE IS FOR SETTING 
UP THE I/O BUFFER IN MEMORY (STARTING AT 
OUTBUF), WITH A PARTICULAR 256 WORD PATTERN. 
STARTING FROM THE FIRST WORD IN THE BUFFER 
THE LO BYTE WILL BE A COUNT PATTERN 
FROM TO 255 (DECIMAL), WHEREAS THE 
HI-BYTE WILL BE THE COMPLEMENT OF LO BYTE, 
A DECREASING COUNT PATTERN FROM 255 TO Q» 
I.E. THE BUFFER WILL LOOK LIKES 
OUTBUF (1 111 111 1 00 000 000) 
0UT8UF+2 (1 111 111 00 000 001) 



LAST WORD 



(0 000 000 11 111 111) 



166530 
166524 
166520 



MOV 

MOV 
MOV 
MOV 

MOV 
INC 
ADD 
MOV 
INC 
BNE 

MOV 
MOV 

MOV 



#OUTBUF,R0 
#177401 ,R1 
#-400, R2 
#177400, R3 

R3,(R0)+ 

R2 

R1 ,R3 

R3,(R0)+ 

R2 

1$ 

#~400,@RKWC 

#OUTBUF,@RKBA 

PRIVAD.^RKDA 



MOV #3,@R4 
TSTB @R4 



PATTERN GENERATING NUMBER 

SET UP COUNT FOR 256 WORDS 

SET UP THE FIRST PATTERN TO B WRITTEN 

SET UP FIRST WORD IN I/O BUFFER 

INCREMENT COUNT 

SET UP NEXT WORD PATTERN 

WRITE IT IN NXT I/O BUFFER WORD 

HAVE U WRITTEN ALL 256 WORDS 

IF NOT GO & WRITE NEXT PATTERN 

JWRITE 256 WORDS 

^STARTING FROM THIS BUS ADRES 

;T0 THIS DISK ADRES, CVL 0, SEC 

;WRITE, GO 

;WAS CNTRL RDY CLEARED AS GO WAS SET? 
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SIO 0077 



4166 
4167 
4168 
4169 
4170 
4171 
4172 
4173 
4174 
4175 
4176 
4177 
4178 
4179 
4180 
4181 
4182 
4183 
4184 
4185 
4186 
4187 
4188 
4189 
4190 
4191 
4192 
4193 
4194 
4195 
4196 
4197 
4198 
4199 
4200 
4201 
4202 
4203 
4204 
4205 
4206 
4207 
4208 
4209 
4210 
4211 
4212 
4213 
4214 
4215 
4216 
4217 
4218 
4219 
4220 
4221 



012626 100003 
012630 004737 
012634 104030 



012636 005002 

012640 105777 166466 

012644 100411 

012646 005202 

012650 001373 

012652 004737 020774 

012656 013737 001350 001202 

012664 104416 



012666 104031 



012670 004737 021234 

012674 104032 



012676 020077 166434 

012702 001406 

012704 010037 001162 

012710 017737 166422 001164 

012716 104035 



012720 004737 021316 

012724 104034 

012726 004737 021262 

012732 104033 

012734 004737 021342 

012740 104036 

012742 022714 000202 

012746 001406 

012750 012737 000202 001162 

012756 011437 001164 

012762 104024 



8PL 
JSR 
ERROR 



CLR 

TSTB 

BMI 

INC 
BNE 

JSR 

MOV 
BRKDA4 



3$""2 

PCGT3RG 

30 



R2 

©RKCS 
4$ 
R2 
3$ 



PC.GT4RG 
DRIVAD,$REG10 



JSR PC.CHKHu 
ERROR 32 



CMP 
BEO 
MOV 
MOV 
ERROR 


RO f @>RKBA 

6$ 

RO.SREGO 

@RKBA,$REG1 

35 


JSR 


PC.CHKWC 


ERROR 


34 


JSR 


PC.CHKDA 


ERROR 


33 


JSR 


PC.CHKER 


ERROR 


36 


CMP 
BEQ 
MOV 
MOV 
ERROR 


#202, @R4 

TST31 

#202,$REG0 

@R4,SREG1 

24 



;YES, BRANCH 

;GET RKCS, ER, OS 

; CNTRL RDY DID NOT CLEAR AS GO WAS SET 

;T0 'WRITE' 



DID CNTRL RDY SET? 

YES, BRANCH 

WAITED LONG ENOUGH? 

IF NOT, LUP BAK & WAIT 

IF YES, ERROR 

GO, GET RKCD, ER, DS. DA 

GET THE STARING ADRES 

BREAK CONTENTS OF SREG10 INTO 

DRV #, CYL, SUR, SEC U 

CNTRL RDY DID NOT SET ON COMPLETION 

OF WRITE OF 256 WORDS ON CYL 0, SEC 

'RKDA' IN EROR MSGE GIVES THE 

CONTENTS OF RKDA AT THE TIME OF EROR 

WRITE WAS DONE STARTING AT <DSK-ADRES> 

INDICATED IN EROR MSGE 

CHECK IF 'ERR 1 OR 'HE' BIT IS SET, 

IF YES, RETURN HERE 

HE OR ERR BIT SET ON DOING WRITE OF 

256 WORDS ON CYL 0, SEC 

WRITE WAS DONE STARTING AT <DSK-ADRES> 

INDICATED IN EROR MSGE 

'RKDA' IN EROR MSGE GIVES THE 

CONTENTS OF RKDA AT THE TIME OF EROR 

DID RKBA INCREMENT CORRECTLY? 

YES, BRANCH 

GET EXPCTD RKBA 

GET RKBA RECVD 

RKBA DID NOT INCREMENT CORRECTLY 

(BY 1000 OCTAL BYTES) AFTER WRITE 

OF 400 (OCTAL) WORDS ON SEC 0, CYL 

CHECK IF RKWC OVERFLOWED TO 0, 

IF NOT RETURN HERE. 

RKWC DID NOT OVERFLOW, AFTER A 

WRITE OF 256 WORDS ON CYL 0, SEC 

CHECK IF RKDA INCREMENTED CORRECTLY, 

IF NOT RETURN HERE 

RKDA DID NOT INCREMENT BY 1 AFTER 

A WRITE OF 256 WORDS IN CYL 0, SEC 

CHECK IF ANY BIT RKER IS SET 

IF YES :.ETURN HERE. 

RKER BIT SET ON DOING WRITE ON 

CYLINDER 0, SECTOR 

DOES RKCS STILL CONTAIN THE WRITE BITS? 

;YES, EXIT 

GET EXPECTED RKCS 

GET RKCS RECVD 

RKCS DID NOT CONTAIN THE 'WRITE' 

BITS AFTER THE FUNCTION WAS DONE. 
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4222 








4223 








4224 








4225 








4226 








4227 








4228 








4229 








4230 








4231 








4232 








4233 


012764 


000004 




4234 


012766 


104413 




4235 








4236 








4237 








4238 








4239 








4240 








4241 








4242 








4243 








4244 


012770 


104421 




4245 








4246 


012772 


012700 


177400 


4247 


012776 


01 2701 


033342 


4248 


013002 


005021 




4249 


013004 


005200 




4250 


013C06 


001375 




4251 


013010 


005000 




4252 


013012 


012777 


177400 166314 


4253 


013020 


012777 


033342 166310 


4254 


013026 


013777 


001350 166304 


4255 








4256 


013034 


012777 


000005 166270 


4257 








4258 


013042 


105777 


166264 


4259 


013046 


100411 




4260 


012050 


005200 




4261 


013052 


001373 




4262 








4263 


013054 


004737 


020774 


4264 


013060 


013737 


001350 001202 


4265 


013066 


104416 




4266 








4267 


013070 


104045 




4268 








4269 








4270 








4271 








4272 








4273 


013072 


032777 


001000 16622f- 


4274 


013100 


001033 




4275 


013102 


012701 


177400 


4276 


013106 


012702 


177777 


4277 


013112 


012703 


033342 



CNT. RESET 
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T31 CHECK THAT WRITE WAS DONE CORRECTLY 

;*TEST 31 CHECK TCU WRITE WAS DONE CORRECTLY 

;*THIS TEST CHECKS IF THE 'WRITE' OF 256 WORDS DONE IN PREVIOUS 
*TEST IS GOOD. THE SEQUENCE OF OPERATIONS IS AS FOLLOWING: 
*1) DO A READ OF 256 WORDS FROM SECTOR 0, CYLINDER 

* INTO A BUFFER STARTING AT 'OUTBUF'. 
*2) COMPARE & CHECK THE DATA THAT IS READ (STARTING AT 'OUTBUF") 

* WITH THE DATA THAT WAS GENERATED PREVIOUSLY 
;*3) REPORT AN ERROR IF THE DATA READ BACK FROM DISK DOES 

NOT COMPARE WITH DATA THAT WAS SUPPOSE TO HAVE BEEN WRITTEN 
I j*************** ***#*#***##**************************#********<■* 
TST31: SCOPE 

;G0, DO CONTROL RESET 
;THIS IS A CALL FOR THE "CNTRL- 
;RESET' ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
;IF THE 'CNTRL RDY' DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
;THE PC IN ERROR MESSAGE IS THE 
;PC WHERE 'CNT. RESET' IS LOCATED. 
;THIS IS A VERY BASIC ERR& IF IT 
;OCCURS GO BACK TO TEST 10 
;CHECK IF SIN IS SET, IF SET 
;D0 DRIVE RESET TO CLEAR IT 
;SET COUNT FOR 400 WORDS 
;T0 BE CLEARED IN THE BUFFER 
8$: CLR (R1)+ ;CLR THE 400 WORD BUFFER 

^STARTING AT 'OUTBUF' 



READ 256 WORDS 

INTO THIS ADRES 

STARTING FROM THIS DISK ADRES 

;READ, GO 

DID CNTRL RDY SET? 

YES, BRANCH 

WAITED LONG ENOUGH? 

IF NOT, LUP BAK & WAIT 

ERROR, IF YES 

GO, GET RKCD, ER, DS, DA 

GET THE STARTING ADRES 

GO TO 'BDA4' & BREAK CONTENTS OF 

SREG10 INTO DRV #, CYL, SUR, SEC BITS 

CNTRL RDY DID NOT SET AFTER READ 

OF 400 WORDS FROM CYL 0, SEC 

'RKDA' IN EROR MSGE GIVES THE 

CONTENTS OF RKDA AT THE TIME OF EROR 

READ WAS DONE STARTING AT <DSK-ADRES> 

INDICATED IN EROR MESGE 

IS SIN SET? 

;IF YES, EXIT 



SEQ 0078 



TST.SIN 




MOV 


#™400, RO 


MOV 


#0UTBUF,R1 


CLR 


(R1) + 


INC 


RO 


BNE 


8$ 


CLR 


RO 


MOV 


#-400, ©RKWC 


MOV 


#OUTBUF,<PRKBA 


MOV 


DRIVAD.PRKDA 


MOV 


#5,i*RKCS 


TSTB 


PRKCS 


BMI 


2$ 


INC 


RO 


BNE 


1$ 


JSR 


PC f GT4RG 


MOV 


DRIVAD.SREG10 


BRKDA4 





BIT 


#1000,@RKDS 


BNE 


TST32 


MOV 


#-400, R1 


MOV 


#177777, R2 


MOV 


#0UTBUF f R3 



MD-11-CZRKKF, RK1 1 BASI 


z LOGIC 


CZRKKF. 


P11 21-FES-78 


08:51 


4278 


0131 16 


012705 


177773 


4279 


013122 


062702 


177401 


4280 


013126 


020213 




4281 








4282 


013130 


001414 




4283 








4284 


013132 


010137 


001162 


4285 


013136 


062737 


000401 


4286 


013144 


010237 


001164 


4287 








4288 


013150 


01 1337 


001166 


4289 


013154 


104055 




4290 








. 4291 








4292 








4293 


013156 


00520S 




4294 


013160 


001403 




4295 


013162 


005723 




429S 








4297 


013164 


005201 




4298 


013166 


001355 




4299 








4300 








4301 








4302 








4303 








4304 








4305 








4306 








4307 


013170 


000004 




4308 


013172 


104413 




4309 








4310 








4311 








4312 








4313 








4314 








4315 








4316 








4317 








4318 


013174 


104421 




4319 








4320 


013176 


013701 


001332 


4321 


013202 


013702 


001334 


4322 


013206 


013703 


001340 


4323 


013212 


013704 


001336 


4324 


013216 


012737 


052525 


4325 


013224 


012712 


177400 


4326 


013230 


013713 


001350 


4327 


013234 


012714 


033342 


4328 


013240 


01271 1 


000013 


4329 








4330 


013244 


105711 




4331 


013246 


100003 




4332 


013250 


004737 


021002 


4333 


013254 


104030 
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T31 CHECK THAT WRITE WAS DONE CORRECTLY 



READ WORD SAME AS THE WORD 

THAT WAS SUPPOSE TO BE WRITTEN 

YES, BRANCH 

NO, ERR-R 

GET THE ft OF WORD 

THAT IS IN ERROR (EXAMPLES .2— 376.377, 400) 

GET EXPCTD WORD (THAT WAS SUPPOSED TO 

BE WRITTEN) 

GET WORD RECVD (THAT WAS READ BAK) 

DID NOT READ BACK WORD THAT WAS SUPPOSED 

TO HAVE BEEN WRITTEN PREVIOUSLY. POSITION 

OF WORD IN ERROR IS AS INDICATED BY 

WORD # (SREGO), SEC 0, CYL 

;EXIT 

INCREMENT POINTER TO NXT WORD (THAT 

WAS READ BACK) 

HAVE U CHKD ALL 256 WORDS? 

IF NOT, LUP BAK A CHK THE NXT WORD 

IF YES, EXIT 

• •is*************®**®********************************************* 
}*TEST 32 CHECK 'READ CHECK' FUNCTION - CYLINDER 0, SECTOR 

s*THIS TEST CHECKS OUT THE BASIC JREAD CHECK' LOGIC, USING THE DATA BLOCK 
;*'CYLINDER, SECTOR 0) WRITTEN IN A PREVIOUS TEST. HENCE THE TEST WHICH 
;*WRITES THE DATA BLOCK SHOULD BE DONE PRIOR TO THIS TEST. 

TST32i SCOPE 

;GO, DO CONTROL RESET 
;THIS IS A CALL FOR THE 'CNTRL- 
;RESET' ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
J IF THE »CNTRL RDY' DOES NOT SET 
*,AN ERROR IS REPORTED. NOTE THAT 
;THE PC IN ERROR MESSAGE IS THE 
;PC WHERE 'CNT. RESET' IS LOCATED. 
;THIS IS A VERY BASIC ERRS IF IT 
5 OCCURS GO BACK TO TEST 10 
; CHECK IF SIN IS SET, IF SET 
jDO DRIVE RESET TO CLEAR IT 



MOV 
ADD 

CMP 


#-5,R5 
#177401 ,R2 
R2,(R3) ;WAS THE 


BEO 


7S ! 


MOV 
ADD 
MOV 


R1, SREGO ; 
#401, SREGO ; 
R2.SREG1 


MOV 
ERROR 


(R3) S $REG2 I 
55 


INC 
BEO 
TST 


R5 

TST32 S 

(R3)+ ; 


2NC 
BNE 


R1 ; 
6$ ; 



CNT, RESET 



TST. SIN 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

TSTB 
BPL 
JSR 
ERROR 



RKCS.R1 

RKWC.R2 

RKDA,R3 

RKBA,R4 

#52525, OUTBUF 

#-400, @R2 

DRIVAD,@R3 

#0UTBUF,«>R4 

#13,@R1 

@R1 

25 

PC.GT3RG 

30 



? READ CHECK 256 WORDS 
;STARTING FROM CYL 0, 



;READ CHECK, GO 



;DID CNTRL RDY GET CLEARED AS GO WAS SET? 

;YES, BRANCH 

;GET RKCS, ER, DS 

;CNTRL RDY DID NOT CLEAR AS GO 
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4334 


013256 


104412 






4335 










4336 










4337 


013260 


104056 






4338 










4339 


013262 


032711 


140000 




4340 


013266 


001403 






4341 


013270 


004737 


021002 




4342 


013274 


104057 






4343 










4344 


013276 


032777 


000002 


166024 


4345 


013304 


001404 






4346 


013306 


017737 


166016 


001162 


4347 


013314 


104060 






4348 










4349 










4350 


013316 


005712 






4351 


013320 


001405 






4352 


013322 


01 1237 


001162 




4353 


013326 


01 1137 


001164 




4354 


013332 


104061 






4355 










4356 


013334 


013702 


001350 




4357 


013340 


005202 






4358 


013342 


020213 






4359 


013344 


001405 






4360 


013346 


010237 


001162 




4361 


013352 


01 1337 


001164 




4362 


013356 


104062 






4363 










4364 










4365 


013360 


022714 


033342 




4366 


013364 


001406 






4367 


013366 


012737 


033342 


001162 


4368 


013374 


01 1437 


001164 




4369 


013400 


104063 






4370 










4371 










4372 


013402 


022737 


Q52S25 


033342 


4373 










4374 










4375 










4376 


013410 


001412 






4377 










4378 


013412 


012737 


033342 


001162 


4379 


013420 


012737 


052525 


001164 


4380 


013426 


013737 


033342 


001 ^ 66 


4381 


013434 


104064 






4382 










4383 










4384 










4385 










4386 










4387 










4388 










4389 
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T32 CHECK 'READ CHECK' FUNCTION - CYLINDER 0, SECTOR 

GO CHECK IF CONTROL ROY IS SET 

IF SO, SKIP THE EROR MESSAGE. 

WAS SET TO 'READ CHECK 1 

CNTRL RDY DID NOT SET ON DOING 

'READ CHECK 1 FROM CYL 0, SEC 

DID 'ERR' OR 'HE' BIT SET? 

NO, BRANCH 

GO, GET RKCS.ER.DS FOR ERROR MESSAGE 

'ERR' OR 'HE' BIT SET ON DOING 

'READ CHECK' ON CYLINDER 0, SEC 

DID 'CSE' BIT SET IN RKER? 

NO, BRANCH 

GET RKER 

SOFT ERROR - CSE - ON DOINC 'READ 

CHECK' ON CYLINDER 0, SECTOR 

U SHOULD HAVE GOT ERRROR 102 ALSO 

DID WORD COUNT OVERFLOW TO 0? 

YES, 8RANCH 

GET RKWC 

GET RKCS 

WORD COUNT DID NOT OVERFLOW 

ON DOING 'READ CHK' ON CYL 0, SEC 

RKDA SHOULD INCREMENT 

TO THIS AFTER ' RD CHK' IS DONE 

DID RKDA INCREMENT CORRECTLY? 

GET EXPCTD RKDA 

GET RKDA RECVD 

RKDA DID NOT INCREMENT CORRECTLY 

(BY 1) ON DOING 'READ CHK' ON 

CYL 0, SEC 

DID RKBA GET CHANGED? 

NO, BRANCH (RKBA WON'T CHANGE, NO NPR'S) 

GET EXPCTD RKBA 

GET RKBA RECVD 

RKBA CHANGED AFTER DOING 'READ CHK ! 

ON CYLINDER 0, SECTOR 0. SHOULD 

NOT CHANGE, FOR, NO NPR'S. 

'OUTBUF' SHOULD STILL CONTAIN THE 

SAME WORD AS IT DID BEFORE ' RD CHK' 

NOTE THAT AT THE BEGINING OF THIS TEST 

52525 WAS WRITTEN INTO 'OUTBUF' 

;YES, EXIT 

REPORT ERROR IF 'OUTBUF' CHANGED 

GET ADRES OF OUTBUF 

GET EXF-;TD WORD IN 'OUTBUF* 

GET WORD FOUND IN 'OUTBUF' 

AS MENTIONED ABOVE, IF 'WRITE' OF 

256 WORD DATA BLOCK WAS DONE 

CORRECTLY BEFORE, THEN THIS ERROR 

COULD MEAN THAT AN NPR WAS DONE 

ON 'READ CHECK' . 

;®TEST 33 CHECK THE 'WRITE CHECK' FUNCTION - ON CYLINDER 0, SECTOR 
;*TH!S TEST CHECKS OUT THE BASIC 'WRITE CHECK* LOGIC, USING THE 256 



BIT 


#140000 ? @Rt 


BEQ 


4$ 


USR 


PC.GT3RG 


ERROR 


57 


BIT 


#2,@RKER 


BEQ 


5$ 


MOV 


@RKER, SREGO 


ERROR 


60 


TST 


@R2 


BEQ 


6$ 


MOV 


@R2, SREGO 


MOV 


@R1 ,$REG1 


ERROR 


61 


MOV 


DRIVAD.R2 


INC 


R2 


CMP 


R2,f»R3 


BEO 


7S 


MOV 


R2, SREGO 


MOV 


@R3,$REG1 


ERROR 


62 


CMP 


#0UTBUF,UR4 


BEQ 


8$ 


MOV 


0OUTBUF, SREGO 


MOV 


•R4.SREG1 


ERROR 


63 



BEO 



#52525, OUTBUF 



TST33 



MOV ^OUTBUF, SREGO 

MOV #52525,$REG1 

MOV OUTBUF, $REG2 

ERROR 64 



013436 
013440 



000004 
104413 



013442 104421 

013444 013701 001332 
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4390 
4391 
4392 
4393 
4394 
4395 
4396 
4397 
4398 
4399 
4400 
4401 
4402 
4403 
4404 
4405 
440S 
4407 
4408 
4409 
4410 
4411 
4412 
4413 
4414 
4415 
4416 
4417 
4418 
4419 
4420 
4421 
4422 
4423 
4424 
4425 
4426 
4427 
4428 
4429 
4430 
4431 
4432 
4433 
4434 
4435 
4436 
4437 
4433 
4439 
4440 
4441 
4442 
4443 
4444 
4445 
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T33 CHECK THE 'WRITE CHECK' FUNCTION 



ON CYLINDER 0, SECTOR 



^WORD DATA SLOCK (SECTOR 0, CYLINDER 0) WRITTEN IN A PREVIOUS 
xTEST. THE BUFFER IN MEMORY, USED FOR COMPARISON OF DATA, IS THE 
*ONE STARTING AT 'OUTBUF'. HENCE THE TEST WHICH WRITES THE 
*256 WORD BLOCK ON THE DISK (AS WELL AS CREATING THE 256 
*256 WORD MEMORY BUFFER) SHOULD BE DONE BEFORE THIS TEST. 



013450 
013454 
013460 
013464 
013470 
013472 
013474 
013476 
013504 
013512 
013520 



012700 
012702 
01 2703 
062703 
010322 
005200 
001373 
012777 
012777 
013777 
012711 



177400 
033342 
177777 
177401 



177400 

033342 
001350 
000007 



165630 
165624 
165620 



013524 005000 

013526 105711 

013530 100003 

013532 004737 021002 

013536 104030 

013540 104412 

013542 104065 

013544 032711 140000 

013550 001403 

013552 004737 021002 

013556 104066 

013560 032777 000001 165542 

013566 001403 

013570 004737 021002 

013574 104067 



SCOPE 
CNT. RESET 



MOV 
MOV 
MOV 
MOV 
ADD 
MOV 
INC 
BNE 
MOV 
MOV 
MOV 
MOV 

CLR 
TSTB 

BPL 
JSR 

ERROR 



RKCS.R1 

#-400, RO 

#0UTBUF,R2 

#177777, R3 

#177401 ,R3 

R3, (R2) + 

RO 

1$ 

#-400,@RKWC 

0OUTBUF,@RKBA 

DRIVAD,S>RKDA 

#7,©R1 

RO 

@R1 

3$ 

PC.GT3RG 

30 



CHKCRDY 
ERROR 65 



BIT #140000, @R1 

BEO 5$ 

JSR PC.GT3RG 

ERROR 66 

BIT #1,©RKER 

BEO 6$ 

JSR PC.GT3RG 

ERROR 67 



GO, DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERRS IF IT 
OCCURS GO BACK TO TEST 10 
CHECK IF SIN IS SET, IF SET 
DO DRIVE RESET TO CLEAR IT 



WRITE CHECK 256 WORDS 

STARTING AT THIS BUS ADRES 

WITH THIS DISK DATA BLOCK (CYL 0, 

WRITE CHECK, GO 



SEC 0) 



GIVE SOME TIME 

DID CNTRL RDY CLEAR AS GO WAS SET? 

YES BRANCH 

GET RKCS, ER, DS 

CNTRL RDY DID NOT CLEAR AS GO WAS 

SET TO DO WRITE CHECK 

GO CHECK IF CONTROL RDY IS SET 

IF SO, SKIP THE EROR MESSAGE. 

CNTRL RDY DID NOT SET AFTER 

COMPLETING WRITE CHECK ON 

CYLINDER 0, SECTOR 

DID HE OR ERR BIT SET 

NO, BRANCH 

GO GET RKCS ER DS FOR ERROR MESSAGE 

HE OR ERR BIT SET ON DOING WRITE 

CHK ON CYLINDER 0, SEC 

DID WCE SET IN RKER? 

NO, BRANCH 

YES GET RKCS, ER. DS 

WCE ON WRITE CHECK OF CYL 0, SEC 

NOTE THAT IF A PREVIOUS TEST 

& THEN COMPARED WITH MEMORY BUFFER 

TO SEE IF IT WAS WRITTEN CORRECT WAS 

DONE RIGHT BEFORE, THIS ERROR SHOULD NOT 
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4446 










4447 










4448 


013576 


005777 


165532 




4449 


013602 


001405 






4450 


013604 


01 7737 


165524 


001162 


4451 


013612 


01 1137 


001164 




4452 


013616 


104061 






4453 










4454 


013620 


013704 


001350 




4455 


013624 


005204 






4456 


013626 


020477 


165506 




4457 


013632 


001406 






4458 


013634 


01 0437 


001162 




4459 


013640 


017737 


165474 


001164 


4460 


013646 


104070 






4461 










4462 


013650 


022777 


034342 


165460 


4463 


013656 


001407 






4464 


013660 


012737 


034342 


001162 


4465 


013666 


017737 


165444 


001164 


4466 


013574 


104071 






4467 










4468 










4469 


013676 


02271 1 


000206 




4470 


013702 


001406 






4471 


013704 


01 2737 


000206 


001162 


4472 


013712 


01 1137 


001164 




4473 


013716 


104024 






4474 










4475 










4476 










4477 










4478 










4479 










4480 










4481 










4482 










4483 










4434 










44B5 










4486 










4487 










4438 


013720 


000004 






4489 


013722 


104413 






4490 










4491 










4492 










4493 










4494 










4495 










4496 










4497 










4498 










4499 


013724 


104421 






4500 










4501 


013726 


013701 


001332 





TST 


@RKWC 


BEQ 


7$ 


MOV 


PRKWC.SREGO 


MOV 


@R1 ,$REG1 


ERROR 


61 


MOV 


DRIVAD, R4 


INC 


R4 


CMP 


R4.PRKDA 


BEQ 


8$ 


MOV 


R4.SREG0 


MOV 


@RKDA,$REG1 


ERROR 


70 


CMP 


#OUTBUF+100 


BEQ 


9$ 


MOV 


0QUTBUF+1OQ 


MOV 


§SRKBA,$REG1 


ERROR 


71 


CMP 


#206, @R1 


BEQ 


TST34 


MOV 


#206,$REG0 


MOV 


@R1 .SREG1 


ERROR 


24 
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T33 CHECK THE 'WRITE CHECK' FUNCTION » ON CYLINDER 0, SECTOR 

HAPPEN UNLESS THERE IS A FAULT IN THE 

COMPARING LOGIC OF ! WRT CHK' 

DID RKWC OVERFLOW? 

YES, BRANCH 

NO, GET RKWC 

GET RKC:. 

RKWC DID NOT OVERFLOW AFTER 

WRITE CHECK ON CYL 0, SEC 

RKDA SHOULD INCREMENT 

TO THIS AFTER WRT CHK 

DID RKDA INCREMENT CORRECTLY? 

YES, BRANCH 

NO, GET EXPCTD RKDA 

GET RKDA RECVD 

RKDA DID NOT INCREMENT CORRECTLY 

(BY 1 SECTOR) AFTER WAT CHK ON SEC 0, CYL 

BA ;DID RKBA INCREMENT CORRECTLY? 

;YES, EXIT 

GO ;GET EPCTD RKBA 
GET RKBA RECVD 

RKBA DID NOT INCREMENT CORRECTLY 
(BY 1000 BYTES) AFTER A WRT CHK 
OF 256 WORDS ON CYL 0, SEC 
9$: CMP #206, @R1 ;DOES RKCS STILL CONTAIN THE WRT CHK BITS? 

;YES, BRANCH 
NO, GET EXPCTD RKCS 
GET RKCS RECVD 

RKCS BITS CHANGED AFTER WRT CHK 
WAS DONE 

*TEST 34 CHECK THAT IBA INHIBITS INCREMENTING OF RKBA 

THIS TEST CHECKS THAT THE BUS ADDRESS DOES NOT INCREMENT MEH 
THE IBA BIT IS SET. SEQUENCE OF OPERATIONS: 

1) CLEAR OUT 256 WORD BUFFER IN MEMORY (OUTBUF) 

2) READ FROM SECTOR 0, CYLINDER THE 256 WORD BLOCK THAT WAS 
WRITTEN IN A PREVIOUS TEST (NOTE: THAT TEST SHOULD HAVE BEEN 
DONE BEFORE THIS). IBA BIT IS SET DURING READ BACK. 

3) CHECK THAT RKBA DIL» NOT INCREMENT 

4) CHECK THAT THE ENTIRE BLOCK WAS READ INTO THE SAME MEMORY 
WORD (OUTBUF) & THE REST OF THE WORDS IN THAT BUFFER ARE 
AS PREVIOUSLY CLEARED OUT. 

TST34: SCOPE 

GO, DO CONTROL RESET 
THIS IS A CALL FOR THE "CNTRL- 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET 1 IS LOCATED. 
THIS IS A VERY BASIC ERR& IF IT 
OCCURS GO BACK TO TEST 10 
CHECK IF SIN IS SET, IF SET 
DO DRIVE RESET TO CLEAR IT 



CNT. RESET 



TST. SIN 



MOV 



RKCS.R1 
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4502 


013732 


012700 


177400 






MOV 


#»400, RO 


4503 


013736 


012702 


033342 






MOV 


#0UTBUF,R2 


4504 


013742 


010203 








MOV 


R2.R3 


4505 
















4506 


013744 


005023 






1$: 


CLR 


(R3) + 


4507 


013746 


005200 








INC 


RO 


4508 


013750 


001375 








BNE 


1$ 


4509 


013752 


012777 


177400 


165354 




MOV 


0-400, @RKWC 


4510 


013760 


010277 


165352 






MOV 


R2,@RKBA 


4511 


013764 


013777 


001350 


165346 




MOV 


DRIVAD,@RKDA 


4512 
















4513 
















4514 


013772 


012711 


004005 






MOV 


#4005, @R1 


4515 
















4516 


013776 


005037 


001362 






CLR 


COUNT 


4517 


014002 


10571 1 






2$: 


TSTB 


•R1 


4518 


014004 


100412 








BMI 


3$ 


4519 


014006 


005237 


001362 






INC 


COUNT 


4520 


014012 


001373 








BNE 


2$ 


4521 


014014 


004737 


020774 






JSR 


PC.GT4RG 


4522 


014020 


013737 


001350 


001202 




MOV 


DRIVAD.SREG10 


4523 


014026 


104416 








BRKDA4 




4524 
















4525 


014030 


104045 








ERROR 


45 


4526 
















4527 


014032 


004737 


021234 




3$: 


dSR 


PC.CHKHE 


4528 
















4529 


01403S 


104046 








ERROR 


46 


4530 
















4531 
















4532 
















4533 
















4534 


014040 


020277 


165272 




4$; 


CMP 


R2,@RKBA 


4535 


014044 


001406 








BEO 


5$ 


4536 


014046 


01 0237 


001162 






MOV 


R2.SREG0 


4537 


014052 


01 7737 


165260 


001164 




MOV 


©RKBA,$REG1 


4538 


014060 


104072 








ERROR 


72 


4539 
















4540 


014062 


032777 


001000 


165236 


5$: 


BIT 


#100Q,@RKDS 


4541 


014070 


001042 








BNE 


TST35 


4542 


014072 


012700 


177400 






MOV 


#-400, RO 


4543 


014076 


022712 


000377 






CMP 


#377,@R2 


4544 
















4545 
















4546 


014102 


00141 1 








BEQ 


6S 


4547 


014104 


012737 


000377 


001162 




MOV 


0377.SREGO 


4548 


0141 12 


01 1237 


001164 






MOV 


(R2),$REG1 


4549 


0141 16 


013737 


001350 


001168 




MOV 


DRIVAD.SREG2 


4550 
















4551 
















4552 


014124 


104044 








ERROR 


44 


4553 
















4554 
















4555 
















4556 


014126 


005722 






6$: 


TST 


(R2) + 


4557 


014130 


012705 


177773 






MOV 


#~5,RS 
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T34 CHECK THAT IBA INHIBITS INCREMENTING OF RKBA 



;SET UP COUNT FOR 256 WORDS 



;CLEAR OUT THE 256 

;WORD MEMORY BUFFER STARTING 

;AT 'OUTBUF' 

;READ BACK 256 WORDS 

;INTO THIS BUS ADRES (IBA WILL B SET) 

;FROM THIS DSK ADRES (SEC 0, CYL 0) 

;NOTE: SEC HAS BEEN WRITTEN IN A 

; PREVIOUS TEST WITH A UNIQUE PATTEM 

;READ, GO, IBA SET 



DID CNTRL RDY SET? 

YES, BRANCH 

WAITED LONG ENOUGH? 

IF NOT, LUP BAK & WAIT 

GO, GET RKCS, ER, DS. DA 

GET THE STARTING ADRES 

BREAK CONTENTS OF SREG10 

INTO DR #, CYL, SUR, SEC 

CNTRL RDY DID NOT SET AFTER DOING 

READ 

CHECK IF 'ERR' OR 'HE 1 BIT IS SET. 

IF YES. RETURN HERE. 

ERR BIT SET ON DOING READ FROM SEC 0, 

CYL (INDICATED IN <DSK-ADRES>) 

1 RKDA« IN EROR MSGE GIVES THE 

CONTENTS OF RKDA AT THE TIME OF EROR 

DID RKBA INCREMENT? 

OK IF NOT, BRANCH 

GET EXPCTD RKBA 

GET RKBA RECVD 

RKBA INCREMNTED WHEN ISA BIT WAS 

SET, SHOULD NOT HAVE 

IS SIN SET? 

:IF YES, EXIT 

CHECK THAT THE FIRST WORD IN 

'OUTBUF' IS 377 (LAST WORD OF SEC 0, 

CYL 0). NOTE THAT READ WAS DONE 

INTO THIS SAME WRD WITH IBA SET 

;GET EX.-CTD WORD (LAST WORD OF THE BUFFER 

GET WORD RECVD (LAST \H9.D FROM SEC 0) 

DISK ADRES WHERE ERROR OCCURED 

(SEC 0, CYL LAST WORD) 

DATA ERROR 

THE FIRST WORD IN MEM BUFFER (OUTBUF) 

SHOULD BE NON-ZERO & SHOULD CONTAIN 

THE LAST WORD READ BACK FROM SEC 

CYL O.THIS DID NOT HAPPEN IF THE ERROR OCCURS 

INCREMENT POINTER TO THE NXT WORD 

ALLOW ONLY 5 MESAGES FOR ERR 116 



SEQ 00S3 



MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2 
CZRKKF.P11 21-FEB-78 08:51 



MACY11 30A(1052) 21-FEB-7S 08 58 PAGE 8S 

T34 CHECK THAT IBA INHIBITS INCREMENTING OF RKBA 



SEQ 0084 



4558 


014134 


005200 




4559 


014136 


001417 




4560 


014140 


005722 




4561 


014142 


001774 




4562 


014144 


005037 


001164 


4563 


014150 


014237 


001166 


4564 


014154 


010004 




4565 


014156 


062704 


000401 


4566 


014162 


010437 


001162 


4567 








4568 


014166 


104073 




4569 








4570 








4571 








4572 








4573 








4574 








4575 








4576 








4577 








4578 








4579 








4580 








4581 








4582 








4583 


014170 


00520S 




4584 


014172 


001401 




4585 


014174 


000757 




4586 








4587 








4588 








4589 








4590 








4591 








4592 








4593 








4594 








4595 


014178 


000004 




4596 


014200 


104413 




4597 








4598 








4599 








4600 








4601 








4602 








4603 








4604 








4605 








4606 


014202 


104421 




4607 








4608 


014204 


012746 


000340 


4809 


014210 


012746 


014216 


4610 


014214 


000002 




4611 


014216 






4612 


014216 


013701 


001332 


4613 


014222 


S13700 


001402 



INC 


RO 


BEQ 


TST35 


TST 


(R2) + 


BEO 


7$ 


CLR 


SREG1 


MOV 


-(R2),$REG2 


MOV 


R0,R4 


ADD 


#401, R4 


MOV 


R4.SREG0 



CHKD ALL 256 WORDS IN THE BUFFER? 

* YES, EXIT 

IS THIS WORD 0? 

YES, LUP BAK & CHK THE NXT WORD? 

ERROR. GET EXPCTED WORD - 

GET WORD THAT WAS FOUND IN THE BUFFER 



;THIS 'WORD #' IN MEMORY BUFFER 
; SHOULD HAVE BEEN ZERO 
;THE 256 WORD BUFER (STARTING AT 
;OUTBUF) WAS CLEARED BEFORE READING 
;BAK SEC INTO IT. SINCE THE IBA 
;BIT WAS SET DURING THE READ, ONLY 
;THE FIRST WORD OF (OUTBUF) SHOULD 
;HAVE CHANGED, THE REST OF THE WORDS 
;SHOULD BE STILL 0. IF THIS ERROR 
;OCCURS, 'WORD #' (OF THE BUFFER) AS 
; INDICATED IN THE EROR MESAGE) GOT 
; CHANGED WHEN READ WAS DONE FROM 
;THE DISK, INDICATING THAT WITH IBA 
;SET X-FER WAS NOT DONE INTO THE 
;SAME MEMORY LOCATION. 'WORD #' 
;IS OCTAL A SPECIFIES THE POSITION 
; IH THE BUFFER (FIRST WORD IS 'WORD # 

?;EXIT 



$******** ® ****#**##******.*********$ i» **#****#********** a * * * * 
35 CHECK THAT RK11 INTERRUPTS WHEN IDE IS SET 

*THIS TEST CHECKS IF RK11 INTERRUPTS TO ITS DESIGNATED VECTOR 
S*ADDR£SS WHEN IDE SIT IS SET, WITH CONTROL READY SET & GO CLEAR. 
* IT IS NORMALLY 220, UNLESS IT HAS BEEN CHANGED. IF IT HAS BEEN 
^CHANGED RK11 WILL INTERRUPT TO * RKVEC 1 . NOTE -RKVEC* HAS 
*TQ BE SET UP BY THE USER. 

**#*****##®**®$&$t£#®$*$**&®«#$*#*****#***********i«#******** 

SCOPE 

;G0, DO CONTROL RESET 
;THIS IS A CALL FOR THE 'CNTRL™ 
;RESET' ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
;IF THE 'CNTRL RDY' DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
;THE PC IN ERROR MESSAGE IS THE 
;PC WHERE *CNT. RESET* IS LOCATED. 
;THIS IS A VERY BASIC ERRS IF IT 
; OCCURS GO BACK TO TEST 10 
;CHECK IF SIN IS SET, IF SET 
•;DD DRIVE RESET TO CLEAR IT 



INC 


R5 


BEO 


TST35 


BR 


7$ 



CNT. RESET 



TST. 


SIN 


MOV 
MOV 
RTI 


#340,-(SP) 
#64$, -(SP) 


MOV 
MOV 


RKCS.R1 
RKVEC.RO 



;GET POINTER TO RK VECTOR ADRES 
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T35 CHECK THAT RK1 1 INTERRUPTS WHEN IDE IS SET 



SEO 0085 



4514 
4615 
4616 
4617 
4618 
4619 
4620 
4621 
4622 
4623 
4624 
4625 
4626 
4627 
4628 
4629 
4630 
4631 
4632 
4633 
4534 
4635 
4636 
4637 
4638 
4639 
4640 
4641 
4642 
4643 
4644 
4645 
4646 
4647 
4648 
4649 
4650 
4651 
4652 
4653 
4654 
4655 
4656 
4657 
4658 
4659 
4660 
4661 
4662 
4663 
4664 
4665 
4666 
4667 
4668 
4669 



014226 
014232 
014236 
014240 
014242 
014246 

014252 
014256 



012720 
01 2710 
10571 1 
100376 
012711 
104420 

01 1137 
104074 



014262 

000340 



000100 
000005 



014260 000400 
014262 022626 



014264 022626 

014266 012777 014302 

014274 104420 000005 



014300 000403 

014302 022626 

014304 022626 

014305 104020 



014310 012777 004600 165064 3$: 

014316 012746 000340 

014322 012746 014330 

014326 000002 

014330 65$: 



MOV 

MOV 

TSTB 

BPL 

MOV 

WAT. INT 


#1$,(R0)+ 
#340, (RO) 

§»R1 
.-2 

#100, ©R1 
,5 


MOV 
ERROR 


©R1.SREG0 
74 


BR 

CMP 


1$ 
(SP)+,(SP) 


CMP 


(SP)+,(SP) 


MOV 


#2$,@RKVEC 


WAT. INT 


,5 



CMP 
CMP 
ERROR 



(SP)+,(SP)+ 
(SP)+,(SP)+ 
20 



#BADINT,@RKVEC 



SET UP INTERRUPT VECTOR FOR RK1 1 
SET PSW ON INTERRUPT 
WAIT FOR CNTRL RDY TO SET 

SET IDE BIT IN RKCS 

WAIT FOk INTERRUPT, ATLEAST 

37 US FOR 11/20, 7 US FOR 11/45 

GET RKCS 

RK11 DID NOT INTERRUPT WHEN IDE 

WAS SET, WITH C'NTRLE RDY SET & GO 

CLEAR 

RK11 INTERRUPTED CORRECTLY TO 

THIS. RESTORE STACK POINTER 

(FROM RK11 INTERRUPT) 

RESTORE STACK POINTER 

(FROM WAT. INT) 

IF THERE IS FAULTY POLLING OR INTERUPT 

LOGIC SECOND INTERRUPT MIGHT OCCUR 
WAIT FOR INTERRUPT, IF ANY 
DUE TO FAULTY LOGIC 



jRESTORE STACK PTR (FROM RK11 INTRUPT) 
;RESTORE STACK PTR (FROM WAT. INT) 
;AN UNEXPECTED RK11 INTERRUPT 
;OCCURED. THERE SHOULD HAVE BEEN 
;ONLY 1 INTERRUPT (TO 1$ ABOVE) 
; RESTORE VECTOR ADRES FOR 
-.UNEXPECTED RK11 INTERRUPT, 



MOV #340, 
MOV #65$, 
RTI 



"(SP) 
-(SP) 



014330 000004 

014332 012737 000005 

014340 104413 



CHECK THAT WITH IDE SET RK11 INTERRUPTS AFTER INTIATION & COMPLETION OF 
*THIS TEST CHECKS THAT AN INTERRUPT FROM RK1 1 OCCURS AFTER 
*A SEEK IS INITIATED WITH 'IDE' BIT SET, AND THEN A SECOND 
♦INTERRUPT OCCURS AFTER THE SEEK IS DONE. IT ALSO CHECKS THAT 
♦AFTER THE FIRST INTERRUPT 'SCP' BIT IS NOT SET, WHEREAS AFTER 
*THE SECOND INTERRUPT 'SCP' IS SET. 
♦THIS TEST ALSO CHECKS A PART OF THE POLLING LOGIC. 

********#***#**#*$***#***********#**********#**#*******#* 

SCOPE 

;DO 5 ITERATIONS 
GO. DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET 1 IS LOCATED. 



MOV #5,$TIMES 
CNT. RESET 
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4670 
4671 
4672 
4673 
4674 
4675 
4676 
4677 
4678 
4679 
4680 
4681 
4682 
4683 
4684 
46S5 
4636 
4687 
4688 
4689 
4690 
4691 
4692 
4693 
4694 
4695 
4696 
4697 
4698 
4699 
4700 
4701 
4702 
4703 
4704 
4705 
4706 
4707 
4708 
4709 
4710 
4711 
4712 
4713 
4714 
4715 
4716 
4717 
4718 
4719 
4720 
4721 
4722 
4723 
4724 
4725 



014342 0i3700 001332 

014346 013777 001350 164764 

014354 004737 021504 

014360 104026 



014362 
014366 
014372 
014376 
014404 
014410 



014436 
014444 
014450 
014452 
014456 



013701 
012721 
01 271 1 
052777 
012710 
104420 



001402 
014432 
000340 
000040 
000111 
000300 



014414 012777 004600 164760 

014422 011037 001162 

014426 104075 

014430 000402 

014432 022626 



014434 022626 



012777 
032710 
001403 
01 1037 
104076 



014502 
020000 



014460 104420 056700 



014464 012777 004600 164710 



014472 004737 021002 

014476 104077 



014500 000401 
014502 02 '626 



014504 022626 

014506 012777 004600 

014514 032710 020000 

014520 001003 

014522 011037 001162 

014526 104053 

014530 017701 164572 



MOV 


RKCS.RO 


MOV 


DRIVAD,@RKDA 


JSR 


PCDRESET 


ERROR 


26 


MOV 


RKVEC.R1 


MOV 


#3$,(R1 )+ 


MOV 


#340, (R1 ) 


BIS 


#40,@RKDA 


MOV 


#111 ,@>RQ 



WAT. INT ,300 
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T36 CHECK THAT WITH IDE SET RK1 1 INTERRUPTS AFTER INTIATION & COMPLETION OF S SEQ 0086 

THIS IS A VERY BASIC ERRS IF IT 

OCCURS GO BACK TO TEST 10 

ADRES THE DRIVE 

GO, DO DRIVE RESET 

R/W/S RDY DIDN'T SET AFTER DOING 

ABOVE DRIVE RESET 

SET UP VECTOR ADRES FOR RK1 1 INTERUPT 

SET UP PSW ON INTERRUPT 

ADRES CYLINDER #1 

SEEK, GO WITH IDE SET 

WAIT FOR THE DRIVE TO 

INTERRUPT AFTER ADRES WAS nECVD 

WAITING TIME= 1.4 MS FOR 11/20 

280 US FOR 1 1/45 

ERROR, IF INTERUPT DID NOT OCCUR 

BY NOW 

RESTORE UNEXPECTED RK11 INTERRUPT 

GET RKCS 

INTERRUPT DID NOT OCCUR AFTER 

SEEK WAS INITIATED WITH IDE SET 

OK, IF RK11 INTERRUPTED TO THIS 
RESTORE STACK POINTER (FROM RK11 INTERRUPT) 
RESTORE STACK POINTER (FROM 
WAT. INT) 

SET UP NEW VECTOR ADRES FOR RK1 1 
IS SCP CLEAR 
YES, BRANCH 
GET RKCS 

SCP SET BEFORE SEEK TO LAST 
CYLINDER WAS DONE 
WAIT FOR DRIVE TO INTERRUPT 
AFTER SEEK WAS COMPLETED 
WAITING TIME=180 MS FOR 11/20 
36 MS FOR 11/45 
IT'S AN ERROR IF BY THIS TIME 
INTERRUPT HAS NOT OCCURERED 
;G0 GET RKCS, ER , DS 
RK11 DID NOT INTERRUPT AFTER SEEK (TO 
LAST CYLINDER) WAS DONE WITH IDE SET 

OK, IF RK11 INTERUPTED TO THIS AFTER 

SEEK WAS COMPLETED. RESTORE 

STACK TOINTER (FROM RK1 1 INTERRUPT) 

RESTORE STACK POINTER (FROM 

WAT. INT) 

RESTORE RK11 INTERRUPT VECTOR ADRES 

FOR UNEXPECTED INTERUTS 

DID SCP BIT SET? 

YES, BRANCH 

GET RKCS 

SCP DID NOT SET AFTER RK1 1 INTERRUPTED 

INDICATING SEEK WAS DONE 

GET RKDS 



MOV 
MOV 
ERROR 

BR 

CMP 

CMP 

MOV 
BIT 
BEQ 
MOV 
ERROR 



#BADINT,@RKVEC 

@RO,$REGO 

75 

3$+4 
(SP)+,(SP)+ 

(SP)+ f (SP)+ 

#5$,@RKVEC 
#20000, @R0 
4$ 

@RO,$R£GO 
76 



WAT. INT ,56700 



#BADINT,«KVEC 





dSR 

ERROR 


PC.GT3RG 
77 


5$: 


BR 

CMP 


5$4-2 

(SP)+, (SP)«- 




CMP 


(SP)+,(SP)+ 


64666 


MOV 


#BADINT,§MW 




BIT 

BNE 
MOV 
ERROR 


#20000,@R0 
6$ 

@RO,$REGO 
53 


6$: 


MOV 


©RKDS.R1 
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4726 


014534 


042701 


017777 


4727 


014540 


020137 


001350 


4723 


014544 


001414 




4729 








4730 


014546 


013746 


001350 


4731 


014552 


004737 


021200 


4732 


014556 


012637 


001162 


4733 


014562 


01 0146 




4734 


014564 


004737 


021200 


4735 


014570 


012637 


001164 


4736 


014574 


104047 




4737 








4738 








4739 








4740 








4741 








4742 








4743 


014576 






4744 


014576 


012746 


000340 


4745 


014602 


012746 


014610 


4746 


014606 


000002 




4747 


014610 






474B 


014610 


104413 




4749 


014612 


013777 


001350 164520 


4750 


014620 


032777 


160000 164500 


4751 


014626 


001404 




4752 


014630 


017737 


164472 001162 


4753 


014636 


104050 




4754 








4755 








4756 








4757 


014640 


022710 


000200 


4758 


014644 


001403 




4759 


014646 


01 1037 


001162 


4760 


014652 


104100 




4761 








4752 








4763 








4764 








4765 








4766 








4767 








4768 


014654 


000004 




4769 


014656 


104413 




4770 








4771 








4772 








4773 








4774 








4775 








4776 








4777 








4778 








4779 


014660 


104421 




4780 








4781 









BIC 


017777, R1 5 


CMP 


R1.DRIVAD ; 


BEQ 


7$ ; 


MOV 


DRIVAD.-(SP) 


JSR 


PC.SHFTRT ; 


MOV 


(SP)+,$REGO ; 


MOV 


R1,-(SP) ? 


USR 


PC.SHFTRT J 


MOV 


(SP)+,$REG1 ; 


ERROR 


47 ; 
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T36 CHECK THAT WITH IDE SET RK11 INTERRUPTS AFTER INTIATION & COMPLETION OF S 

MASK NON-ID BITS IN RKDS 
CORRECT ID BITS IN RKDS? 
YES, BRANCH 

PUSH DRV ADRES ON THE STACK 

GO, SHIFT RIGHT DRV M 

GET EXPCTD DRV # 

PUSH ID BITS ON THE STACK 

GO SHIFT THEM RIGHT 

POP THE RECVD ID BITS 

WRONG ID BITS WERE RECVD IN 

RKDS AFTER SEEK WAS DONE (INTRUPT 

MODE). 'EXPCT' INDICATES THE DRIVE 
:# THAT SHOULD HAVE BEEN IN THE 
:ID BITS, 'RECVD 1 INDICATES THE 
;DRIVE M THAT WAS RECVD IN THE ID BITS 



;GQ DO CONTROL RESET 

;ADRES THE DRIVE 

;DIO CNTRL RESET CLEAR DRIVE ID BITS? 

;YES, BRANCH 

;GET RKDS 

;CONTROL RESET DIDN'T CLEAR THE 



SEO 0087 



MOV 


#340, -(SP) 


MOV 


#64$, -(SP) 


RTI 




CNT. RESET 


MOV 


DRIVAD.fRKDA 


BIT 


#160000, @RKDS 


BEQ 


8$ 


MOV 


@RKDS,$REGO 


ERROR 


50 



CMP #200, ©RO 

BEO TST37 

MOV ©RO.SREGO 

ERROR 100 



;DRIVE ID BITS (13-15) IN RKDS 

;WAS SCP BIT CLEARED BY CNTRL RESET? 

;;YES, EXIT 

;GET RKCS 

;CNTRL RESET DID NOT CLEAR SCP BIT 



******** 



•*TEST 37 CHECK THAT WITH IDE SET RK11 INTERRUPTS WHEN READ IS DONE 
«*THIS TEST CHECKS THAT WHEN A DATA TRANSFER FUNCTION IS DONE 
•*WITH IDE BIT SET, RK1 1 INTERRUPTS WHEN THE FUNCTION IS COMPLETED 
•^FUNCTION USED IN THIS TEST IS READ. 

TST37: SCOPE 



CNT. RESET 



GO, DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY 1 DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERR& IF IT 
OCCURS GO BACK TO TEST 10 
CHECK IF SIN IS SET, IF SET 
DO DRIVE RESET TO CLEAR IT 
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4782 

4783 

4784 

4785 

4786 

4787 

4788 

4789 

4790 

4791 

4792 

4793 

4794 

4795 

4796 

4797 

4798 

4799 

4800 

4801 

4802 

4803 

4804 

4805 

4806 

4807 

4808 

4809 

4810 

4811 

4812 

4813 

4814 

4815 

4816 

4817 

4818 

4819 

4820 

4821 

4822 

4823 

4824 

4825 

4826 

4827 

4828 

4829 

4830 

4831 

4832 

4833 

4834 

4835 

4836 

4837 



014662 013700 001332 

014666 013702 001340 

014672 013704 001336 

014B7S 013701 001350 

014702 052701 000013 

014706 012777 177600 

014714 010112 

014716 012714 033342 

014722 013705 001402 

014726 012725 014764 

012715 000340 



014732 

014736 012710 

014742 104420 



000105 
127710 



MOV 


RKCS.RO 


MOV 


RKDA,R2 


MOV 


RKBA.R4 


MOV 


DRIVAD,R1 


BIS 


#13, R1 


MOV 


#-200,®RKWC 


MOV 


R1 ,§>R2 


MOV 


#0UTBUF,@R4 


MOV 


RKVECR5 


MOV 


#1$, (R5)+ 


MOV 


#340, (R5) 


MOV 


#105, @R0 



WAT. INT ,127710 



014746 012777 004600 164426 

014754 011037 001162 

014760 104101 

014762 000404 

014764 022626 

014766 022626 

014770 012777 004600 164404 

014776 004737 021342 

015002 104036 

015004 062701 000005 

015010 020112 

015012 001405 

015014 010137 

015020 
015024 



001162 
011237 001164 



015026 004737 021316 
015032 104041 
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T37 CHECK THAT WITH IDE SET RK1 1 INTERRUPTS WHEN READ IS DONE 



SET BITS FOR SEC 13 

READ 200 (OCTAL WORDS) 

FROM THIS DISK ADRES (CYL 0, SEC 135 

INTO THIS BUS ADRES 

SET UP VECTOR ADRES FOR RK11 TO INTRUPT 
SET PSW ON INTERUPT 
READ. GO, IDE SET 
WAIT FOR RK11 TO INTERRUPT ON 
COMPLETION OF READ 
WAITING TIME* 337 MS FOR 11/20 
67 MS FOR 11/45 

RESTORE UNEXPCTED INTERRUPT VECTOR ADRES 
;GET RKCS 

RK11 DID NOT INTERRUPT AFTER READ 
WAS DONE, IDE BIT SET. 

OK, IF RK11 INTERRUPTED TO THIS 

RESTORE STACK POINTER (FROM RK11 INTERRUPT) 

RESTORE STACK POINTER (FROM WAT. INT) 

RESTORE UNEXPECTED RK1 1 INTERRUPT 
,VECTOR ADRES 
;CHECK IF ANY BIT IN RKER IS SET, 

IF YES, RETURN HERE. 

RKER SET ON DOING READ FROM SEC 0, 
CYL 13 IN INTERRUPT MODE 

RKDA SHOULD HAVE INCREMENTED TO THIS 

DID RKDA INCREMENT CORRECTLY? 

YES BRANCH 

GET EXPCTD RTDA 

GET RKDA RECVD 

RKDA INCREMENTED WRONG ON DOING 

A READ ON CYL 0, SEC 13 

CHECK THAT RKWC OVERFLOWED TO Q, 

IF NOT RETURN HERE. 

RKWC DIDN'T OURFLO AFTER 

A READ OF 200 WORDS 



SEO 0©Si 



012746 000340 
012746 015046 
000002 



015034 

015034 

015040 

015044 

015046 

015046 022714 033742 

015052 001406 

015054 012737 033742 

015062 011437 001164 

015066 104042 



64$*. 



MOV 
MOV 
ERROR 


#BADINT,<P>RKVEC 

@R0,$REG0 

101 


BR 
CMP 


1S+10 
(SP)+,(SP)+ 


CMP 
MOV 


(SP)+,(SP)+ 

#BADINT,®RKV£C 


USR 


PCCHKER 


ERROR 


36 


ADD 

CMP 
BEO 
MOV 
MOV 
ERROR 


#5,R1 
R1 ,§>R2 
2$ 

R1 ,SREG0 

@R2,$REG1 
40 


USR 


PC.CHKWC 


ERROR 


41 


MOV 
MOV 
RTI 


#340, -(SP) 
#64$,~(SP) 


CMP 
BEO 
MOV 
MOV 
ERROR 


#QUTBUF*400,@R 

TST40 

#0UTBUF+40G,$R 

@R4,$REG1 
42 



;DID RKBA INCREMENT CORRECTLY? 

;;YES, EXIT 

|GET EXPCT RKBA 
GET RKBA RECVD 

RKBA DID NOT INCREMENT CORRECTLY 
AFTER A READ OF 200 WORDS 



?®TEST 40 CHECK THAT RK11 INTERRUPTS AT BR5 ONLY 



ft®*®**®******* 



MD-1 1-CZRKKF, RK1 1 BASI 


: LOGIC 


CZRKKF. 


P1 1 2 


-FEB-78 


08:51 


4838 








4839 








4840 








4841 








4842 








4843 








4844 








4845 








4846 


015070 


000004 




4847 


015072 


104413 




4848 








4849 








4850 








4851 








4852 








4853 








4854 








4855 








4856 








4857 


015074 


104421 




4358 








4859 


015076 


012737 


015132 


4860 








4861 


015104 


013700 


001332 


4862 


0151 10 


013777 


001350 


4863 


0151 16 


012701 


000007 


4864 


015122 


01 2702 


000340 


4865 


015126 


013703 


001400 


4866 








4867 








4868 








4669 


015132 


013704 


001402 


4870 


015136 


012724 


015244 


4871 


015142 


012714 


000340 


4872 


015146 


01 0246 




4873 


015150 


012746 


015155 


4874 


015154 


000002 




4875 


015156 






4876 


015156 


012710 


000100 


4877 


015162 


012705 


177760 


4878 


015166 


005205 




4879 


015170 


001376 




4880 


015172 


020203 




4881 


015174 


003005 




4882 








4883 








4884 


015176 


01 0137 


001162 


4885 


015202 


01 1037 


001164 


4886 


015206 


104103 




4887 








4888 








4839 


015210 


005010 




4890 


015212 


062702 


177740 


4891 








4892 


015216 


005301 




4893 


015220 


001344 
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*THIS TEST CHECKS THAT RK11 CAN ITERRUPT AT BR5 ONLY. IF IT 
INTERRUPTS AT A LEVEL HIGHER THAN BR5 AN ERROR IS INDICATED. 
♦IF IT DOES NOT INTERRUPT AT BR5 ORLOWER THEN ALSO AN 
♦ERROR IS INDICATED. IF FOR SOME REASON THE INTERRUPT 
♦LEVEL IS CHANGED FROM BR5, THEN CONTENTS OF RKPRI WILL 
*HAVE TO BE CHANGED ACCORDINGLY AND STILL TEXT WILL 
*CHECK FOR THIS BR LEVEL. 



SCOPE 
CNT. RESET 



TST.SIN 




MOV 


#1$,$LPuRR 


MOV 


RKCS.RO 


MOV 


DRIVAD,@RKDA 


MOV 


#7,R1 


MOV 


#340, R2 


MOV 


RKPRI, R3 


MOV 


RKVECR4 


MOV 


#3$,(R4)+ 


MOV 


#340, (R4) 


MOV 


R2,-(SP) 


MOV 


#4$,-(SP) 


RTI 




MOV 


#100, @R0 


MOV 


#-20, R5 


INC 


R5 


BNE 


.~2 


CMP 


R2,R3 


BGT 


2$ 


MOV 


R1 ,$REGO 


MOV 


@R0,$REG1 


ERROR 


103 


CLR 


(PRO 


ADD 


#-40, R2 


DEC 


R1 


BNE 


1$ 



;G0, DO CONTROL RESET 
;THIS IS A CALL FOR THE 'CNTRL- 
;RESET' ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
;IF THE 'CNTRL RDY' DOES NO" SET 
;AN ERROR IS REPORTED. NOTE THAT 
;THE PC IN ERROR MESSAGE IS THE 
;PC WHERE 'CNT. RESET' IS LOCATED. 
;TMIS IS A VERY BASIC ERRS IF IT 
;OCCURS GO BACK TO TEST 10 
;CHECK IF SIN IS SET, IF SET 
;D0 DRIVE RESET TO CLEAR IT 
;SET RETURN ADRES FOR LUPING 
;0N ERROR (SW 9) 



;PRIORITY LEVEL 7 

;BR LEVEL 7 FOR PSW 

;NOTE, IF RK11 INTERRUPT LEVEL IS 

; CHANGED FROM 5 TO ANY OTHER LEVEL 

;THEN CHANGE CONTENTS OF 'RKPRI 1 

; ACCORDINGLY 

;SET UP ADRES FOR RK11 TO INTERUPT 
;SET UP PSW ON INTERUPT 

;SET PROCESSOR PRIORITY LEVEL AS 



INDICATED BY R2 

SET THE IDE BIT 

WAIT FOR THE RK1 1 INTERRUPT 

WAITING TIME=78 US FOR 11/20 

13 US FOR 11/45 

WAS THE CPU PRIORITY LEVEL LESS THAN 

THE RK11 LEVEL? IF YES, RK1 1 

SHOULD HAVE INTERRUPTED. ERROR, 

IF IT D-D NOT 

GET CPU BR LEVEL 

GET RKCS 

THOUGH CPU LEVEL WAS LESS THAN 

THE RK11 LEVEL (5), RK11 DID NOT 

INTERRUPT 

CLEAR RKCS 

DECREASE THE PRIORITY LEVEL (FOR 

CPU) BY 1 

CPU WILL B AT THIS LEVEL 

LUP BAK & CHK FOR THIS BR LEVEL. 
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4894 










4895 


015222 


012777 


004600 


164152 


4896 










4897 


015230 


012746 


000340 




4898 


015234 


012746 


015242 




4899 


015240 


000002 






4900 


015242 








4901 


015242 


000414 






4902 










4 903 


015244 


022626 






4904 


015246 


012777 


004600 


164126 


4905 










4906 


015254 


020203 






4907 


015256 


003754 






4908 










4909 










4910 


015260 


010137 


001162 




4911 


015264 


01 1037 


001164 




4912 


015270 


104104 






4913 










4914 










4915 










4916 


015272 


000746 






4917 










4918 










4919 










4920 










4921 










4922 










4923 










4924 










4925 










4926 


015274 


000004 






4927 


015276 


104413 






4928 










4929 










4930 










4931 










4932 










4933 










4934 










4935 










4935 










4937 


015300 


104421 






4938 










4939 


015302 


013701 


001350 




4940 


015306 


052701 


014533 




4941 










4942 


015312 


012777 


177377 


164014 


4943 


015320 


012777 


033342 


164010 


4944 


015326 


010177 


164006 




4945 










4946 


015332 


012777 


000005 


163772 


4947 










4948 


015340 


005002 






4949 


015342 


105777 


163764 





#BADINT.?RKVEC 



MOV 


#340, 


-(SP) 


MOV 


#64$, 


-(SP) 


RTI 







CMP 
MOV 



CMP 
BLE 



(SP)+, (SP)+ 

#BADINT,®RKVEC 



R2.R3 
2$ 



MOV R1,$REG0 
MOV PR0,$REG1 
ERROR 104 



BR 



2$ 



;*TEST 41 SIMULATE & CHECK 

*THIS TEST SIMULATES OV 

*BIT IN RKER GETS SET. 

*<& CHECKED THAT IT WAS 

*BY TRYING TO READ 401 ( 

*LAST SECTOR (13), SURF 

********************** 

SCOPE 

CNT. RESET 



MOV 
BIS 

MOV 
MOV 
MOV 



CLR 
TSTB 



DRIVAD.R1 
#14533, R1 

#-401 ,@RKWC 
#OUTBUF,@RKBA 
R1 ,@RKDA 



R2 
$RKCS 



;DONE WITH CHKING FOR ALL LEVELS. 
;RESTORE UNEXPECTED RK11 INTERRUPT 
JVECTOR 



;EXIT,TO NXT TST 

RESTORE STACK POINTER 

RESTORE UNEXPECTED RK11 INTERRUPT 

VECTOR 

IF THIS INTERRUPT OCCURED WHEN 

CPU LEVEL WAS LESS THAN THE 

RK11 PRIORITY LEVEL (5) THEN IT IS 

OK. IF NOT SO, ERROR 

GET CPU BR LEVEL 

GET RKCS 

RK11 INTERRUPTED WHEN THE CPU 

LEVEL (AS POINTED BY R1 ) WAS 

HIGHER OR SAME AS THE RK11 

LEVEL (5) 

GO BACK & CHK THE NXT LEVEL 

******************************** 

'OVR' F^ROR 
ERRUN ERROR AND CHECKS IF THE OVR 

THEN IT IS CLEARED USING CNTRL RESET 
CLEARED. OVR CONDITION IS SIMULATED 
OCTAL) WORDS FROM LAST CYLINDER (31 2) , 
ACE 1 . 

******************************** 

GO, DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERRS IF IT 
OCCURS GO BACK TO TEST 10 
CHECK IF SIN IS SET, IF 
SET, DO DRIVE RESET TO CLR IT 
GET ADRES OF DRIVE 
SET BITS FOR LAST CYLINDER (312). 
SUR 1 , LAST SECTOR (13) 
READ 401 WORDS 
INTO THIS MEMORY BUFFER 
FROM THIS DSK ADRES, LAST CYL, 
LAST SEC, SURFACE 1 
;READ, GO 



;DID CNTRL RDY SET? 
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4950 


015346 


100410 




4951 


015350 


005202 




4952 


015352 


001373 




4953 








4954 








4955 


015354 


017737 


163754 001166 


4956 


015362 


004737 


021010 


4957 


015366 


104002 




4958 








4959 








4960 








4961 


015370 


032777 


040000 163732 


4962 


015376 


001006 




4963 


015400 


004737 


021010 


4964 


015404 


012737 


040000 001166 


4965 


015412 


104105 




4966 








4967 


015414 


022777 


140204 163710 


4968 


015422 


001403 




4969 


015424 


004737 


021010 


4970 


015430 


104106 




4971 








4972 








4973 


015432 


104413 




4974 








4975 








4976 








4977 








497B 








4979 








4980 








4981 








4982 








4983 


015434 


004737 


021356 


4984 








4985 


015440 


104102 




4986 








4987 


015442 


004737 


021402 


4988 








4989 


015446 


104102 




4990 








4991 


015450 


004737 


021504 


4992 


015454 


104026 




4993 








4994 








4995 








4996 








4997 








4998 








4999 








5000 








5001 








5002 








5003 


015455 


000004 




5004 


015460 


104413 




5005 









BMI 


2S 


INC 


R2 


BNE 


1$ 



MOV @RKWC,$REG2 
JSR PC.GT2RG 
ERROR 2 



BIT 


#40000, ©RKER 


BNE 


3$ 


JSR 


PC.GT2RG 


MOV 


#40000, $REG2 


ERROR 


105 


CMP 


#1 40204, §>RKCS 


BEO 


4$ 


JSR 


PC.GT2RG 


ERROR 


106 



;YES. BRANCH 

;NO. WAIT FOR IT 

;IF WAITED LONG, REPORT ERROR MESSAGE BECAUSE 

;OVR SHOULD HAVE SET HE CAUSING 

;CNTRL RDY TO SET BY NOW 

GO, GET RKCS, ER 

CNTRL RDY DID NOT SET AFTER DOING 
AN OVR READ. HE SHOULD HAVE OCCURED 
SETTING CNTRL RDY (HE BECAUSE OF 

OVR CONDITIONS) 

DID OVR BIT SET IN RKER? 

GET RKCS, ER 

THIS BIT (OVR) DID NOT SET. 

OVR ERROR BIT DID NOT SET IN RKER 

ON SIMULATING OVR CONDITIONS 

DID HE & ERR SET WHEN OVR SET IN RKER? 

YES, BRANCH 

GET RKCS ER 

HE OR ERR BIT DID NOT SET IN RKCS WHEN 

AN OVR ERROR WAS SIMULATED 

CLEAR OVER. ERR, HE BITS 

GO, DO CONTROL RESET 

THIS IS A CALL FOR THE 'CNTRL- 

RESET' ROUTINE. A CONTROL RESET IS 

ISSUED AND AFTER A CERTAIN TIME 

IF THE 'CNTRL RDY' DOES NOT SET 

AN ERROR IS REPORTED. NOTE THAT 

TH C . PC IN ERROR MESSAGE IS THE 

PC "WHERE *CNT. RESET' IS LOCATED. 

THIS IS A VERY BASIC ERRS IF IT 

OCCURS GO BACK TO TEST 10 

CHECK IF 'OVR' BIT WAS CLEARED BY 

CON. RESET, IF NOT RETURN HERE. 

CNTRL RESET DID NOT CLEAR OVR 

BIT IN RKER 

CHECK IF 'ERR' & 'HE 1 BIT GOT CLEARED BY 

CON. RESET, IF NOT RETURN HERE. 

CNTRL RESET DID NOT CLEAR 

HE OR ERR BIT IN RKCS. 

GO DO DRIVE RESET 

R/W/S RDY DIDN'T SET 

AFTER THE ABOVE DRIVE RESET 



42 SIMULATE & CHECK PGE ERROR 

*THIS TEST SIMULATES 'PROGRAMMING ERROR' & CHECKS IF IT IS 
♦DETECTED BY PGE BIT IN RKER. THEN A CNTRL RESET IS DONE & 
♦IT IS CHECKED IF PGE BIT WAS CLEARED. IT IS ALSO CHECKED IF 

♦ THE SETTING & CLEARING OF PGE BIT SETS & CLEARS HE, ERR 

♦ BITS IN RKCS. 

SCOPE 

CNT. RESET ;GO, DO CONTROL RESET 

;THIS IS A CALL FOR THE 'CNTRL- 



JSR 


PC.CHKECLR 


ERROR 


102 


JSR 


PC.CHKCCLR 


ERROR 


102 


JSR 


PC.DRESET 


ERROR 


26 



015462 104421 



015464 013701 
015470 013777 



015476 012777 
015504 1Q4414 



001330 

001350 163645, 



002011 163626 



15506 
15512 
15514 
15522 
15526 
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5006 
5007 
5008 
5009 
5010 
5011 
5012 
5013 
5014 
5015 
5016 
5017 
5018 
5019 
5020 
5021 
5022 
5023 
5024 
5025 
5026 
5027 
5028 
5029 
5030 
5031 
5032 
5033 
5034 
5035 
5036 
5037 
503B 
5039 
5040 
5041 
5042 
5043 
5044 
5045 
5046 
5047 
5048 
5049 
5050 
5051 
5052 
5053 
5054 
5055 
5056 
5057 
5058 
5059 
5060 
5061 
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T42 SIMULATE A CHECK PGE ERROR 



seo ooss 



MOV RKER.R1 

MOV DRIVAD,®RKDA 



MOV #2O11 t 0RKCS 
CNT. RDY 



015530 
015536 
015540 
015544 



032711 
001006 
012737 
004737 
104105 



022777 

001403 
004737 
104106 



004000 001166 
021010 



142210 163S74 
021010 



BIT 


#4000, ®*1 


BNE 


1$ 


MOV 


#400Q,$R£G2 


JSR 


PCGT2RG 


ERROR 


105 



CMP #142210, @RKCS 

BEQ 2S 

JSR PCQT2RG 

ERROR 106 



015546 104413 



015550 004737 

015554 104102 

015556 004737 

015562 104102 



JSR PC.CHKECLR 

ERROR 102 

JSR PC.CHKCCLR 

ERROR 102 



PRESET' ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
j IF THE 'CNTRL RDY' DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
|THE PC IN ERROR MESSAGE IS THE 
?PC WHERE 'CNT. RESET 1 IS LOCATED. 
;THIS IS A VERY BASIC ERRS IF IT 
lOCCURS GO BACK TO TEST. 10 
;GO CHECK IF SIN IS SET. IF 
;SET DO DRIVE RESET TO CLR IT 

lADRES THE DRIVE, CYLINDER 

SEEK, GO WITH FMT SET 

THIS IS A PGE SIMULATION 

THIS IS A CALL FOR 'CN.RDY' 

ROUTINE WHICH WAITS FOR CNT 

RDY TO SET. IF CNTRL RDY DOES 

NOT SET WITHIN 883 MS/ 11-20 

(176 MS FOR 11-45 WITH BIPOLAR) 

AN ERROR IS REPORTED 

DID PGE BIT IN RKER SET? 

YES, BRANCH 

THIS BIT IN RKER (PGE) DID NOT SET 

GO GET RKCS, ER FOR MESAGE 

PGE BIT DID NOT SET IN RKER 

ON SIMULATION OF PGE CONDITION 

SREG2 CONTAINS THE RKER BIT (PGE) 

THAT SHOULD HAVE SET. 

DID HE & ERR BITS SET? 

YES, BRANCH 

GO, GET RKCS, ER 

HE OR ERR BIT DID NOT SET WHEN 

PGE SET IN RKER. 

CLEAR PGE, HE, ERR BITS 

GO, DO CONTROL RESET 

THIS IS A CALL FOR THE 'CNTRL- 

RESET' ROUTINE. A CONTROL RESET IS 

ISSUED AND AFTER A CERTAIN TIME 

IF THE 'CNTRL RDY 1 DOES NOT SET 

AN ERROR IS REPORTED. NOTE THAT 

THE PC IN ERROR MESSAGE IS THE 

PC WHERE 'CNT. RESET' IS LOCATED. 

THIS IS A VERY BASIC ERRS IF IT 

OCCURS GO BACK TO TEST 10 

CHECK I;' 'PGE' BIT GOT CLEARED BY 

CONTROL RESET, IF NOT RETURN HERE. 

CNTRL RESET DID NOT CLEAR 

PGE BIT IN RKER 

CHECK IF 'ERR' BITGOT CLEARED BY 

CON. RESET. IF NOT RETURN HERE. 

RKCS BITS HE OR ERR DID NOT 

GET CLEARED BY CNTRL RESET 



Itl^***®****!?!* 



;*T£ST 43 



SIMULATE & CHECK NXM ERROR 
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5062 










5063 










5064 










5065 










5066 










5067 










5068 










5069 


015564 


000004 






5070 


015566 


104413 






5071 










5072 










5073 










5074 










5075 










5076 










5077 










5078 










5079 










5080 


015570 


104421 






5081 










5082 


015572 


005002 






5083 


015574 


013700 


001332 




5084 


015600 


012777 


177777 


163526 


5085 


015606 


012777 


160000 


163522 


5086 


015614 


013777 


001350 


163516 


5087 


015622 


012710 


000067 




5088 


015626 


105777 


163500 




5089 


015632 


10041 






5090 


015534 


005202 






5091 


015636 


001373 






5092 


015640 


004737 


021010 




5093 


015644 


017737 


163464 


001166 


5094 


015652 


1041 13 






5095 










5096 










5097 










5098 


015654 


032777 


002000 


163446 


5099 


015662 


001006 






5100 


015664 


004737 


021010 




5101 


015670 


012737 


002000 


001166 


5102 


015676 


104105 






5103 










5104 


015700 


022710 


140266 




5105 


015704 


001403 






5106 


015706 


004737 


021010 




5107 


015712 


104106 






5108 










5109 










51 10 


015714 


104413 






5111 










5112 










5113 










5114 










5115 










5116 










5117 
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♦ THIS TEST SIMULATES A NON-EXISTENT MEMORY ERROR (NXM) AND 
♦CHECKS IF IT "3 DETECTED BY NXM BIT OR RKER . LOCAT ION 760000 
♦IS REFERENCED & IT HAPPENS TO BE A NON EXISTENT LOCATION 
*(FOR DIAGNOSTIC PURPOSES LIKE THIS). IT IS ALSO CHECKED 
♦IF HE & ERR BITS ALSO SET AND ALL 3 BITS CAN BE CLEARED 

* BY CONTROL RESET. 



SEO 0093 



SCOPE 
CNT. RESET 



TST.SIN 




CLR 


R2 


MOV 


RKCS.RO 


MOV 


#-1 ,@RKWC 


MOV 


#160000, @RKBA 


MOV 


DRIVAD,@RKDA 


MOV 


#67,@R0 


TSTB 


@RKCS 


BMI 


2$ 


INC 


R2 


BNE 


1$ 


JSR 


PC.GT2RG 


MOV 


§>RKWC,$REG2 


ERROR 


113 


BIT 


#2000,@RKER 


BNE 


3$ 


JSR 


PC.GT2R6 


MOV 


#2000,$REG2 


ERROR 


105 


CMP 


#140266, @R0 


BEQ 


4$ 


USR 


PC.GT2RG 


ERROR 


106 


CNT. RESET 



GO, DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET 1 ROUTINE. A CONTROL RESET I 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERRS IF IT 
OCCURS GO BACK TO TEST 10 
GO CHECK IF SIN IS SET 
IF SET DO DRIVE RESET TO CLR IT 



WRITE CHECK 1 WORD 

AT THIS BUS ADRES 

WITH THIS DISK ADRES (CYL 0, SEC 0) 

WRT CHK. GO, MEX BITS SET 

DID CNTRL RDY SET AS A RESULT OF HE? 

YES, BRA".~H 

WAITED LuNG ENOUGH? 

IF NOT LUP BAK & WAIT 

GET RKCS, ER 

GET RKWC 

CNTRL RDY DID NOT SET ON DOING 

A WRT CHK WITH A NXM LOCATION. 

THIS HE SHOULD HAVE SET THE 

CNTRL RDY BIT IN RKCS 

DID NXM BIT IN RKER SET? 

YES, BRANCH 

GO GET RKCS, RKER 

THIS BIT (NXM) DID NOT SET IN RKER 

NXM BIT DID NOT SET IN RKER ON 

SIMULATING NXM CONDITION. 

DID HE & ERR BIT SET? 

YES, BRANCH 

;G0. GET RKCS. RKER 
;HE OR ERR BIT DID NOT SET WHEN 
;NXM ERROR WAS SIMULATED 
;CLEAR NXM. HE, ERR BITS 
;G0. DO CONTROL RESET 
;THIS IS A CALL FOR THE 'CNTAL- 
-.RESET' ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
;IF THE 'CNTRL RDY* DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
;THE PC IN ERROR MESSAGE IS THE 
;PC WHERE 'CNT. RESET' IS LOCATED. 



MD-11-CZRKKF, PA 


<11 BASI 


: LOGIC TEST 2 


CZRKKF. 


P11 2 


-FES-7S 


08:51 


5118 








5119 








5120 


015716 


004737 


021356 


5121 








5122 


015722 


104102 




5123 








5124 


015724 


004737 


021402 


5125 








5126 


015730 


104102 




5127 








5128 


015732 


004737 


021436 


5129 








5130 


015736 


104016 




5131 








5132 








5133 








5134 








5135 








5136 








5137 








5138 


015740 


000004 




5139 


015742 


104413 




5140 








5141 








5142 








5143 








5144 








5145 








5146 








5147 








5148 








5149 


015744 


104421 




5150 








5151 


015746 


013700 


001332 


5152 


015752 


012702 


160000 


5153 








5154 


015756 


010277 


163356 


5155 


015762 


104417 


000001 


5156 








5157 


01576S 


105777 


163334 


5158 


015772 


100004 




5159 


015774 


062702 


160000 


5160 








5161 


016000 


001366 




5162 








5163 


016002 


000435 




5164 








5165 


016004 


012710 


000015 


5166 


016010 


104417 


000106 


5167 








5168 


016014 


105777 


163310 


5169 


016020 


001006 




5170 


016022 


004737 


021010 


5171 


016026 


012737 


000200 001166 


5172 


016034 


104105 




5173 









USR 


PC.CHKECLR 


ERROR 


102 


JSR 


PC.CHKCCLR 


ERROR 


102 


JSR 


PC.TSTRWS 


ERROR 


16 



TST44: 
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THIS IS A VERY BASIC ERRS IF IT 

OCCURS GO BACK TO TEST 10 

CHECK IF 'NXM' BIT GOT C;LEARED BY 

CON. RESET, IF NOT RETURN HERE. 

CNTRL RESET DID NOT CLEAR 

NXM BIT IN RKER 

CHECK IF 'HE' <& 'ERR' BITS GOT CLEARED 

BY CON. RESET, IF NOT RETURN HERE. 

CNTRL RESET DID NOT CLEAR 

HE OR ERR BIT IN RKCS. 

GO CHECK IF R/W/S RDY IS SET & 

WAIT FOR IT. SKIP ERROR IF IT IS SET 

R/W/S RDY IS NOT SET 

•♦TEST 44 SIMULATE & CHECK NXD ERROR 

;*THIS TEST SIMULATES NON-EXISTENT DISK ERROR & CHECKS IF 

;*IT IS DETECTED BY NXD BIT OF RKER. IF ALL EIGHT ARE PRESENT 

;*THEN THIS TEST IS ABORTED FOR SIMULATION CANNOT BE DONE. 

***#*###*##*####*#**#♦#♦#**********♦#♦****♦************** 

SCOPE 

CNT. RESET ;GO. DO CONTROL RESET 

THIS IS A CALL FOR THE 'CNTRL- 
RESET 1 ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERRS IF IT 
OCCURS GO BACK TO TEST 10 
CHECK IF SIN IS SET, IF SET 
DO DRV RESET TO CLR IT 

ADRES DRIVE 7 TO FIND 

IF IT IS PRESENT 

ADRES DRIVE # POINTED TO BY R2 

TIME DELAY, 7.5 US ON 11/20, 

1 .5 US ON 11/45 

IS IT PRESENT? 

NO, BRANCH 

ADRES THE NXT DRIVE IN THE 

REVERSE ORDER. I.E. 7.6,... 

LUP BAK & TRY TO FIND A DRIVE 

THAT'S NOT PRESENT 

; EXIT TO THE NXT TST 



SEO 0094 



TST.SIN 




MOV 


RKCS.RO 


MOV 


#160000, R2 


MOV 


R2,@RKDA 


DELAY 


,1 


TSTB 


@RKDS 


BPL 


25 


ADD 


#-20000, R2 



MOV 
DELAY 

TSTB 

BNE 

JSR 

MOV 

ERROR 



#15,@R0 
,106 

©RKER 

3$ 

PC.GT2RG 

#200,$REG2 

105 



DRIVE RESET, ON A NX DRIVE 

TIME DELAY, 525 US ON 11/20 

105 US ON 11/45 

DID NXD BIT IN RKER SET? 

YES, BRANCH 

GET RKCS. RKER 

THIS BIT (NXD) IN RKER DID NOT SET 

NXD BIT DID NOT SET ON TRYING 

TO PERFORM A FUNCTION ON A 



016036 022710 140214 

01S042 001403 

016044 004737 021010 

016050 104106 

016052 104413 
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5174 
5175 
5176 
5177 
5178 
5179 
5180 
5181 
5182 
5183 
5184 
5185 
5186 
5187 
5188 
5189 
5190 
5191 
5192 
5193 
5194 
5195 
5196 
5197 
5198 
5199 
5200 
5201 
5202 
5203 
5204 
5205 
5206 
5207 
5208 
5209 
5210 
5211 
5212 
5213 
5214 
5215 
5216 
5217 
5218 
5219 
5220 
5221 
5222 
5223 
5224 
5225 
5226 
5227 
5228 
5229 
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SEQ 0095 



3$: 



CMP 
BEO 
JSR 
ERROR 



#140214, mo 

4$ 

PC.GT2RG 

106 



016054 004737 0213S6 

016060 104102 

0160S2 004737 021402 

016066 104102 

016070 004737 021436 

016074 104016 



JSR 

ERROR 

JSR 

ERROR 

JSR 

ERROR 



PC.CHKECLR 

102 

PCCHKCCLR 

102 

PC.TSTRWS 

16 



NON-EXISTENT DRIVE 

CHECK THAT THE JUMPER CARD CONTAINING 

JUMPERS FOR DRIVES PRESENT IS PROPERLY 

CONNECTED 

NOTE THAT ON RK11C IF A DRIVE 

IS OFFLINE BUT PHYSICALLY PRESENT 

(IE. DRY IS CLR FOR THAT DRIVE) 

& A FUNCTION IS INITIATED ON THAT 

DRIVE NXD WON'T SET, BUT U WILL 

GET ONLY A DRE.HE & ERR. 

DID HE & ERR SET WHEN NXD SET? 

YES BRANCH 

HE OR ERR BIT DID NOT SET 

WHEN NXD WAS SIMULATED 

CLEAR NXD, HE, ERR BITS 

GO, DO CONTROL RESET 

THIS IS A CALL FOR THE *CNTRL~ 

RESET' ROUTINE. A CONTROL RESET IS 

ISSUED AND AFTER A CERTAIN TIME 

IF THE 'CNTRL ROY' DOES NOT SET 

AN ERROR IS REPORTED. NOTE THAT 

THE PC IN ERROR MESSAGE IS THE 

PC WHERE 'CNT, RESET' IS LOCATED. 

THIS IS A VERY BASIC ERR& IF IT 

OCCURS GO BACK TO TEST 10 

CHECK IF 'NXD* BIT WAS CLEARED BY 

CON, RESET. IF NOT, RETURN HERE. 

CNTRL RESET DID NOT CLEAR 

NXD BIT IN RKER 

CHECK IF 'HE' & 'ERR' BITS WERE CLEARED 

BY CON. RESET. IF NOT RETURN HERE. 

CNTRL RESET DID NOT CLEAR 

HE OR ERR BIT IN RKCS 

GO CHECK & WAIT FOR R/W/S RDY 

TO SET. IF SET SKIP ERROR 

R/W/S SHOULD BE SET, IT'S 

NOT 



• ;**** 

;*TEST 



J************************************ 
45 SIMULATE & CHECK NXC ERROR 



******************** 



016076 

016100 
016104 
0161 12 
0161 18 
016122 



000004 
01 3700 
012737 
013702 
052702 
012737 



001332 
177773 
001350 
014540 
016130 



TST45: 
2$: 



THIS TEST SIMULATES THE NON-EXISTENT CYLINDER ERROR & CHECKS 
♦IF IT IS DETECTED BY THE NXC BIT OF RKER, HE & ERR BITS 
*OF RKCS. IT IS CHECKED IF THEY CAN BE CLEARED BY CONTROL 
*RESET 

********************************************************* 

SCOPE 



MOV 
MOV 
MOV 
BIS 
MOV 



RKCS f R0 

0-5, COUNT 
DRIVAD.R2 
01454O.R2 
#3$,$LPERR 



016130 104413 



;ALLOW 'ERROR 133' ONLY 5 TIMES 

;GET ADRES OF DRIVE 

;SET BITS FOR CYL 313 

;SET RETURN ADRES FOR 

;LUPING ON EROR (SW9) 

;GO, DO CONTROL RESET 

;THIS IS A CALL FOR THE 'CNTRL- 

;RESET' ROUTINE. A CONTROL RESET IS 

; ISSUED AND AFTER A CERTAIN TIME 
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SEQ 0096 



5230 














5231 














5232 














5233 














5234 














5235 














5236 


016132 


004737 


021436 




JSR 


PC.TSTRWS ; 


5237 














5238 


016136 


104016 






ERROR 


16 ; 


5239 


016140 


104421 






TST.SIN 




5240 














5241 


016142 


010277 


163172 




MOV 


R2,@RKDA ; 


5242 


016146 


012710 


000011 




MOV 


#1 1 „@R0 ; 


S243 


016152 


104412 






CHKCRDY 




5244 














5245 


016154 


104021 






ERROR 


21 ; 


5246 














5247 














5248 














5249 


016156 


032777 


000100 


163144 9$S 


BIT 


#100, ©RKER ; 


5250 


016164 


001020 






BNE 


4$ } 


5251 


016166 


004737 


021010 




JSR 


PC.GT2RG ; 


5252 


016172 


017737 


163142 


001 166 


MOV 


§>RKDA,SREGS 1 


5253 


016200 


104110 






ERROR 


110 ; 


5254 














5255 














5256 


016202 


004737 


021436 




JSR 


PC.TSTRWS ; 


5257 














5258 


016206 


104016 






ERROR 


18 I 


5259 


016210 


104413 






CNT. RESET • 


5260 


016212 


004737 


021504 




JSR 


PC.DRESET ; 


5261 


016216 


104026 






ERROR 


26 ; 


5262 












; 


5263 












; 


5264 


016220 


005237 


001362 




INC 


COUNT ; 


5265 


016224 


001405 






BEQ 


5$ ; 


5266 


016226 


062702 


000040 


4S: 


ADD 


#40, R2 ; 


5267 


016232 


032702 


017740 




BIT 


#17740, R2 ; 


5268 


016236 


001334 






8NE 


3$ ; 


5269 














5270 


016240 


032710 


140000 


S$s 


BIT 


#140000,@R0 ; 


5271 


016244 


001003 






BNE 


6$ ; 


5272 


016246 


004737 


021010 




JSR 


PC.GT2RG ; 


5273 


016252 


104106 






ERROR 


106 ; 


5274 












; 


5275 












: 


5276 


016254 


104413 




6$: 


CNT. RESET 


5277 














5278 












• 


5279 














5280 














5281 












; 


5282 














5283 












;l 


5284 












. i 


5285 












;c 



IF THE 'CNTRL RDY' DOES NOT SET 

AN ERROR IS REPORTED. NOTE THAT 

THE PC IN ERROR MESSAGE IS THE 

PC WHERE 'CNT. RESET' IS LOCATED. 

THIS IS A VERY BASIC ERRS IF IT 

OCCURS GO BACK TO TEST 10 

GO CHECK & WAIT FOR R/W/S RDY 

TO SET. IF SET SKIP ERROR BELO& 

R/W/S RDY IS NOT SET 

CHECK IF SIN IS SET, IF SET 

DO DRIVE RESET TO CLR IT 

ADRES DRIVE, NXC CYLINDER 

SEEK, GO TO NXC CYL 

GO CHECK IF CONTROL RDY IS SET 

IF SO, SKIP THE EROR MESSAGE. 

SEEK WAS TRIED TO A NON EXISTENT 

CYLINDER, NXC SHOULD HAVE OCCURED 

SETTING CNTRL RDY. BUT CNTRL RDY 

DID NOT SET. 

DID NXC SET? 

ES, BRANCH 
GO GET RKCS, ER 
GET RKDA 

NXC DID NOT SET WHEN SEEK 
WAS TRIED TO CYLINDER AS INDICATED 
IN RKDA 

CHECK & WAIT FOR R/W/S RDY, 
IF SET SKIP ERROR 
R/W/S SHOULD BE SET 
GO DO CONTROL RESET 
GO DO DRIVE RESET 
NXC DID NOT SET AND DRIVE MAY 
HAVE TRIED TO DO A SEEK, AFTER 
WHICH R/W/S RDY DID NOT SET 
ALLOW ONLY 5 MESSAGES FOR 
ERROR 133 

ADRES THE NXT CYL(IN NON-EXISTENT ZONE) 
CHKD FOR ALL NXC'S? 
IF NOT, LUP BAK & CHK THE NXT NXC 

DID HE & ERR BIT SET WHEN NXC BIT SET? 

YES. BRANCH 

GET RKCS, ER 

HE OR ERR BIT DID NOT SET IN RKCS 

WHEN NXC ERROR WAS SIMULATED 

CLEAR HE, ERR, NXC SITS 

GO, DO CONTROL RESET 

THIS IS A CALL FOR THE 'CNTRL" 

RESET' ROUTINE. A CONTROL RESET IS 

ISSUED AND AFTER A CERTAIN TIME 

IF THE 'CNTRL RDY 1 DOES NOT SET 

AN ERROR IS REPORTED. NOTE THAT 

THE PC IN ERROR MESSAGE IS THE 

PC WHERE 'CNT. RESET' IS LOCATED. 

THIS IS A VERY BASIC ERRS IF IT 

OCCURS GO BACK TO TEST 10 
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SEO 0097 



5286 
5287 
5288 

5289 
5290 
5291 
5292 
5293 
5294 
5295 
5296 
5297 
5298 
5299 
5300 
5301 
5302 
5303 
5304 
5305 
5306 
5307 
5308 
5309 
5310 
5311 
5312 
5313 
5314 
5315 
5316 
5317 
5318 
5319 
5320 
5321 
5322 
5323 
5324 
5325 
5326 
5327 
532B 
5329 
5330 
5331 
5332 
5333 
5334 
5335 
5336 
5337 
5338 
5339 
5340 
5341 



016256 004737 021356 

016262 104102 

016264 032710 140000 

016270 001405 

016272 010037 001162 

016276 011037 001164 

016302 104102 



JSR 

ERROR 

BIT 
BEQ 
MOV 
MOV 
ERROR 



PC.CHKECLR 

102 

#140000, PRO 

TST46 

RO.SREGO 

@R0,$REG1 

102 



CHECK IF 'NXC BIT WAS CLEARED 

CON. RESET. IF NOT, RETURN HERE. 

CNTRL RESET DID NOT CLEAR 

NXC BIT IN RKER. 

DID HE & ERR BITS GET CLEARED? 

;YES, EaIT 

GET ADRES OF RKCS 

GET RKCS CONTENTS 

CNTRL RESET DID NOT CLEAR 

HE OR ERR BIT IN RKCS 



016304 000004 
016306 104413 



016310 
016314 
016322 
016330 
016336 
016344 
016350 



016352 
016356 
016362 
016364 
016370 
016376 



013700 
013777 
052777 
012777 
012777 
012710 
104414 



017702 
032702 
001006 
004737 
012737 
104105 



J J***#: 

;*TEST 



CNT. RESET 



001332 
001350 
000014 
177777 
033342 
000005 



162752 
000040 



021010 
000040 



163016 
163010 
162776 
162772 



016400 042702 000040 

016404 001407 

016406 012737 000040 

016414 017737 162710 

016422 104107 



001 1C1 
001164 



:iM! ********* ******************************* **************'«"«' 
46 SIMULATE & CHECK NXS ERROR 

THIS TEST SIMULATES NON-EXISTENT SECTOR ERROR & CHECKS THAT 
IT IS DETECTED BY NXS BIT OF RKER. IT IS CHECKED THAT 
WHEN NXS SETS HE & ERR OF RKER ALSO SETS, AND ALL THREE 
CAN BE CLEARED BY CONTROL RESET. 
**************************** -~ ****************************** 
SCOPE 

;G0, DO CONTROL RESET 
;THIS IS A CALL FOR THE 'CNTRL- 
;RESET" ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
;IF THE 'CNTRL RDY' DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
;THE PC IN ERROR MESSAGE IS THE 
;PC WHERE 'CNT. RESET 1 IS LOCATED. 
;THIS IS A VERY BASIC ERRS IF IT 
;OCCURS GO BACK TO TEST 10 

GET ADRES OF DRIVE 

SET BITS FOR SECTOR 12 (DECIMAL) 

READ 1 WORD 

INTO THIS BUS ADRES 

READ. GO (FROM NX SECTOR) 

THIS IS A CALL FOR 'CN.RDY 1 

ROUTINE WHICH WAITS FOR CNT 

RDY TO SET. IF CNTRL RDY DOES 

NOT SET WITHIN 883 MS/ 11-20 

(176 MS FOR 11-45 WITH BIPOLAR) 

AN ERROR IS REPORTED 

NXS ERROR SHOULD OCCUR NOW 

;DIO NXS BIT SET IN RKER? 

;YES, BRANCH 

;GO GET RKCS, RKER 

;THIS BIT (NXS) IN RKER DID NOT SET 

;NXS BIT DID NOT SET ON SIMULATING 

;NXS ERROR 

;MASK NXS BIT 

; CHECK IF ANY OTHER 

;RKER BIT SET 

;GET EXPCTD RKER 

;GET RKER RECVD 

;ONLY 'NXS' SHOULD BE SET 

;IN RKER, ANOTHER RKER BIT 



MOV 


RKCS,R0 


MOV 


DRIVAD.&RKDA 


BIS 


#14,@RKDA 


MOV 


#-1 ,@RKWC 


MOV 


#OUTBUF,@RKBA 


MOV 


#5,@R0 


CNT. 


RDY 



MOV 


©RKER.R2 


BIT 


#40, R2 


BNE 


1$ 


JSR 


PC.GT2RG 


MOV 


#4Q,$REG2 


ERROR 


105 


BIC 


#40, R2 


BEQ 


2$ 


MOV 


#40,$REG0 


MOV 


@RKER,$REG1 


ERROR 


107 
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SEQ 0098 



5342 

5343 

5344 

5345 

5346 

5347 

5348 

5349 

5350 

5351 

5352 

5353 

5354 

5355 

5356 

5357 

5358 

5359 

5360 

5361 

5362 

5363 

5364 

5365 

5366 

5367 

5368 

5369 

5370 

5371 

5372 

5373 

5374 

5375 

5376 

5377 

5378 

5379 

5380 

5381 

5382 

5383 

5384 

5385 

5386 

5387 

5388 

5389 

5390 

5391 

5392 

5393 

5394 

5395 

5396 

5397 



016424 
016430 
016432 
016436 



022710 140204 

001403 

004737 021010 



CMP #140204, mO 

BEQ 3$ 

JSR PC.GT2RG 

ERROR 106 



016440 104413 



016442 004737 021356 

016446 104102 

016450 004737 021402 

016454 104102 



JSR PC.CHKECLR 

ERROR 102 

JSR PC.CHKCCLR 

ERROR 102 



WAS SET. (NOTE 'NXS' WAS 

SIMULATED) 

DID HE & ERR BITS SET? 

YES. BRANCH 

GO GET RKCS, RKER 

HE OR ERR BIT DID NOT SET WHEN 

NXS ERROR OCCURED 

CLEAR NXS, HE, ERR BITS 

GO, DO CONTROL RESET 

THIS IS A CALL FOR THE "CNTRL- 

RESET' ROUTINE. A CONTROL RESET IS 

ISSUED AND AFTER A CERTAIN TIME 

IF THE 'CNTRL RDY 1 DOES NOT SET 

AN ERROR IS REPORTED. NOTE THAT 

THE PC IN ERROR MESSAGE IS THE 

PC WHERE 'CNT. RESET' IS LOCATED. 

THIS IS A VERY BASIC ERRS IF IT 

OCCURS GO BACK TO TEST 10 

CHECK IF 'NXS' BIT WAS CLEARED BY 

CON. RESET. IF NOT, RETUEN HERE. 

CNTRL RESET DID NOT CLEAR 

NXS BIT IN RKER 

CHECL IF 'HE' & 'ERR' BITS WERE CLEARED 

BY CON. RESET. IF NOT, RETURN HERE. 

RKCS BITS ERR OR HE WERE NOT 

CLEARED BY CNTRL RESET 



****** 



***** 



******** 



016456 000004 
016460 013700 
016464 104413 



« .******************** 

;*TEST 47 SIMULATE & CHECK WCE 

*THIS TEST SIMULATES A WRITE CHECK ERROR AND CHECKS THAT IT 
*IS DETECTED BY WCE BIT OF RKER. FOR COMPARISON IT USES 
*THE 256 WORDS DATA BLOCK WRITTEN ON SECTOR 0, CYLINDER 
*IN A PREVIOUS TEST. THIS BLOCK IS COMPARED WITH THE 256 WORDS 
*MEMORY BUFFER STARTING AT 'OUTBUF'. WCE IS SIMULATED BY 
^DROPPING A BIT FROM ONE OF THE WORDS IN THE MEMORY BUFFER. 
********************************************************* 
SCOPE 



• ;**** 

TST47: 



MOV RKCS.RO 
CNT. RESET 



016466 104421 



016470 
016474 
016500 



012701 
012702 
012703 



033342 
177400 
177777 



MOV 
MOV 
MOV 



016504 062703 177401 



#0UTBUF,R1 
#-400, R2 
#177777, R3 



#177401 S R3 



GO, DO CONTROL RESET 

THIS IS A CALL FOR THE 'CNTRL- 

RESET 1 ROUTINE. A CONTROL RESET IS 

ISSUED AND AFTER A CERTAIN TIME 

IF THE 'CNTRL RDY' DOES NOT SET 

AN ERROR IS REPORTED. NOTE THAT 

THE PC IN ERROR MESSAGE IS THE 

PC WHER-I 'CNT. RESET' IS LOCATED. 

THIS IS A VERY BASIC ERRS IF IT 

OCCURS GO BACK TO TEST 10 

CHECK IF SIN IS SET, IF 

SET DO D.3V-RESET TO CLR IT 

THIS CODE SETS UP A MEMORY 

BUFFER OF 256 WORDS STARTING 

AT OUTBUF 

FIRST WORD 177400 

SECOND 177001 
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T47 SIMULATE & CHECK WCE 



SEO 0099 



5398 


016510 


010321 






5399 


016512 


005202 






5400 


016514 


001373 






5401 
5402 


016516 


012737 


170007 


033360 


5403 










5404 










5405 


016524 


012777 


177400 


162602 


5406 


016532 


012777 


033342 


162576 


5407 


016540 


013777 


001350 


162572 


540S 


016546 


012710 


000007 




5409 










5410 


016552 


104412 






5411 










5412 


016554 


104065 






5413 










5414 


016556 


032777 


000001 


162544 


5415 


016564 


001006 






5416 


016566 


004737 


021010 




5417 


016572 


012737 


000001 


001166 


5418 


016600 


104105 






5419 










5420 


016602 


022710 


100206 




5421 


016606 


001403 






5422 


016610 


004737 


021010 




5423 


016614 


104106 






5424 










5425 


016616 


104413 






5426 


016620 


004737 


021356 




5427 










5428 


016624 


104102 






5429 










5430 


016626 


004737 


021402 




5431 










5432 


016632 


104102 






5433 










5434 










5435 










5436 










5437 










5438 










5439 










5440 










5441 










5442 










5443 










5444 










5445 










5446 










5447 


016634 


000004 






5448 


016636 


104413 






5449 










5450 










5451 










5452 










5453 











MOV 
INC 

BNE 



R3,{R1 )+ 
R2 

1$ 



;LAST WORD 000377 

;HAVE U GENERATED ALL 256 WORDS? 

;IF NOT, LUP BAK & GENERATE NXT 



6$: 



;#TEST 



#170007, OUTBUF+16 ;WCE WILL B SIMULATED BY DROPPING A 
;BIT IN THE EIGHTH WORD WHICH IS 
; SUPPOSED TO B 174007 
;WRT CHK 400 WORDS 
-.STARTING AT THIS BUS ADRES 
;WITH THIS DISK ADRES, SEC 0, CYl 
;WRT CHK, GO 

;GO CHECK IF CONTROL RDY IS SET 
;IF SO, SKIP THE EROR MESSAGE. 
ICNTRL RDY DID NOT SET 
; AFTER WRT CHK 
;DID WCE BIT SET? 



GO, GET RKCS, RKER 

THIS BIT (WCE) DID NOT SET 

WCE DID NOT SET ON SIMULATING 

WCE CONDITIONS 

IS RKCS CORRECT? 

YES, BRANCH 

GO, GET RKCS, RKER 

HE OR E?R BIT DID NOT SET WHEN 

WCE WAS SIMULATED 

CNTRL RESET. 

WAS 'WCE' BIT CLEARED? 

IF NOT, RETURN HERE. 

CNTRL RESET DID NOT CLEAR 

WCE BIT IN RKER 

CHECK IF 'ERR' BIT WAS CLEARED. IF 

NOT RETURN HERE. 

CNTRL RESET DID NOT CLEAR 

RKCS 



MOV 
MOV 
MOV 
MOV 


#-400,@RKWC 
#OUTBUF,@RKBA 
DRIVAD,f>RKDA 
#7, MO 


CHKCRDY 




ERROR 


65 


BIT 
BNE 
JSR 
MOV 
ERROR 


#1 ,§RK£R 

4$ 

PC.GT2RG 

#1 f $REG2 

105 


CMP 
BED 
JSR 
ERROR 


#100206, mo 

5$ 

PC.GT2RG 

106 



CNT. RESET 

JSR PC.CHKECLR 

ERROR 102 

JSR PG.GHKCCLR 

ERROR 102 



tstso; 



50 CHECK THAT SSE STOPS ALL CONTROL ACTION ON SOFT ERROR 
*THIS TEST CHECKS THAT WHEN 'STOP ON SOFT ERROR' BIT IS SET IN 
*RKCS AND A SOFT ERROR IS ENCOUNTERED ALL CONTROL ACTION WILL 
*STOP AT THE END OF THE CURRENT SECTOR IF IDE BIT IS CLEAR. 
*SOFT ERROR IS SIMULATED BY A WCE AS IN THE PREVIOUS 
*TEST. THE PREVIOUS TEST & THE TEST WHICH WRITES DATA 
*BLOCK ON CYLINDER 0, SECTOR 0, SHOULD BE DONE PRIOR 
*TO THIS TEST. A TWO SECTOR 'WRT CHK' WILL BE DONE, 
^CONTROL ACTION SHOULD STOP AFTER THE FIRST SECTOR DURING 
'WHICH A SOFT ERROR IS SIMULATED. 

!**^***#***** ********************************************** 

SCOPE 

CNT, RESET ; GO . DO CONTROL RESET 

;THIS IS A CALL FOR THE 'CNTRl- 

;RESET' ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
;IF THE 'CNTRL RDY' DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 



016640 104421 



016642 

016646 



016654 
016660 
016666 
016674 
016700 
016704 



013700 001332 

012737 170007 033360 



013701 
012777 
012777 
010177 



001350 
177000 
033342 
162440 



162446 
1 62442 



012710 000407 
104412 



016706 104065 



016710 022777 000001 162412 2$S 
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5454 
5455 

5456 

5457 

5458 

5459 

5460 

5461 

5462 

5463 

5464 

5465 

5466 

5467 

5468 

5469 

5470 

5471 

5472 

5473 

5474 

5475 

5476 

5477 

5478 

5479 

5480 

5481 

5482 

5483 

54B4 

5485 

5486 

5487 

5488 

5489 

5490 

5491 

5492 

5493 

5494 

5495 

5496 

5497 

5498 

5499 

5500 

5501 

5502 

5503 

5504 

5505 

5506 

5507 

5508 

5509 
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TBO WECK THAT SSE STOPS ALL CONTROL ACTION ON SOFT ERROR 

THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERRS IF IT 
OCCURS GO BACK TO TEST 10 
CHECK IF SIN IS SET, IF 
SET DO ^RIVE RESET TO CLR IT 



SEO 0100 



MOV 
MOV 



RKCS.RO 
#170007, OUTBUF+1 



MOV 
MOV 
MOV 
MOV 
MOV 
CHKCRDY 



ERROR 65 



DRIVAD.R1 
#~1000,®RKWC 
#OUTBUF,@RKBA 
R1 ,®RKDA 
#407, @R0 



016716 

016720 
016726 
016734 



016736 
016740 



016744 
016746 
0167S2 
016760 



001407 
012737 
017737 
104107 



000001 001162 
162376 001164 



005201 

020177 162374 



001406 

010137 001162 

017737 162362 001164 

104070 



6 5WCE IS SIMULATED BY DROPPING A BIT 
•IN THE EIGTH WORD (WHICH IS ACTUALLY 
•174007). NOTE THAT 256 WORD MEMORY 
IBUFFER IS CREATED IN THE PREVIOUS TEST. 

WRT CHK 1000 (OCTAL) WORDS, 2 SECTORS 
FROM THIS BUS ADRES 

WITH THIS DISK ADRES. SEC 0, CYL 
WRT CHK, GO, SSE 
:GO CHECK IF CONTROL RDY IS SET 
IF SO, SKIP THE EROR MESSAGE. 
CNTRL RDY DID NOT SET AFTER WRT 
CHK. A SOFT ERROR (WCE) IN 
SECTOR SHOULD HAVE STOPPED 
ALL CONTROL ACTION. 
CHECK ONLY «WCE' BIT SHOULD 
BE SET? 
YES, BRANCH 
GET EXPCTD RKER 
GET RKER RECVD 
ONLY BIT 'WCE' OF RKER 

SHOULD BE SET (WCE WAS 

SIMULATED ABOVE) . ERROR 

IF IT'S NOT 

CHECK THAT RKDA INCREMENTED BY 

1 SECTOR ONLY IMPLYING THAT 

CNTRL ACTION DID STOP AFTE.-. 

SOFT ERROR IN SECTOR 

;YES. EXIT 

GET EXPCTD RKDA 

GET RKDA RECVD 

RKDA SHOULD HAVE INCRMNTD 

BY 1 SECTOR ONLY. IT DIDN'T. 

WCE WAS SIMULATED IN THE 

FIRST SECTOR & A WRT CHK 
.OF 2 SECTORS WAS ISSUED. 
CONTROLLER SHOULD STOP AFTER 

DETECTING WCE IN THE FIRST 

SECTOR. HENCE RKDA SHOULD 

INCREMENT BY 1 SECTOR ONLY 



^TEST 51 CHECK THAT RK1 1 INTERRUPTS ON SOFT ERROR WHEN SSE | IDE ARE SET 
' * :*THIS TEST CHECKS WHEN SSE BIT IS SET WITH IDE SET AND A SOFT 
'.ERROR OCCURS, THEN ALL CONTROL ACTION WILL ST OP AND S 
.REQUEST (INTERRUPT) WILL OCCUR AT ™E END OF THE CURRENT 
•SECTOR. SOFT ERROR IS SIMULATED BY WCE AS ^PREVIOUS 
;*TEST. PREREQUISITES FOR THIS TEST ARE THE SAME AS THOSE 



CMP 

BEQ 
MOV 
MOV 
ERROR 



INC 
CMP 



BEQ 
MOV 
MOV 
ERROR 



#1 f OTKER 

3$ 

#1 ,$REG0 

@RKER,SREG1 
107 



TST51 

R1 ,$REG0 

$RKDA,$REG1 

70 
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5510 










5511 










5512 


016762 


000004 






5513 


016764 


104413 






5514 










5515 










5516 










5517 










5518 










5519 










5520 










5521 










5522 










5523 


016766 


104421 






5524 










5525 


016770 


012737 


170007 


033360 


5526 










5527 










5528 










5529 










5530 


016776 


013701 


001350 




5531 


017002 


012777 


177000 


162324 


5532 


017010 


012777 


033342 


162320 


5533 


017016 


010177 


162316 




5534 


017022 


01 3700 


001402 




5535 


017026 


012720 


017060 




5536 


017032 


012710 


000340 




5537 


017036 


012777 


000507 


162266 


5538 


017044 


104420 


177777 




5539 










5540 










5541 


017050 


004737 


021010 




5542 


017054 


1041 11 






5543 










5544 


017056 


000417 






5545 










5546 


017060 


022626 






5547 


017062 


022626 






5548 


017064 


012777 


004600 


162310 


5549 










5550 


017072 


005201 






5551 


017074 


020177 


162240 




5552 










5553 










5554 


017100 


001406 






5555 


017102 


010137 


001162 




5556 


017106 


017737 


162226 


001164 


5557 


0171 14 


104003 






5558 










5559 










5560 










5561 


0171 16 








5562 


0171 16 


012746 


000340 




5563 


017122 


012746 


017130 




5564 


017126 


000002 






5565 


017130 
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T51 CHECK THAT RK11 INTERRUPTS ON SOFT ERROR WHEN SSE & IDE ARE SET 

;*FOR THE PREVIOUS TEST. 



SCOPE 
CNT. RESET 



TST.SIN 

MOV #170007, OUTBUF+1 



MOV 


DRIVAD.R1 


MOV 


#-1000,tfRKWC 


MOV 


#OUTBUF,@RKBA 


MOV 


R1 ,@RKDA 


MOV 


RKVECRO 


MOV 


#1$,(R0)+ 


MOV 


#340, @R0 


MOV 


#507,@RKCS 



WAT. INT, 177777 



JSR 
ERROR 



CMP 
CMP 
MOV 

INC 
CMP 



PCGT2RG 
111 



(SP)+,(SP)+ 
(SP)+, (SP)+ 
#BADINT,§>RKVEC 

R1 

R1 ,@RKDA 



BEQ 2$ 

MOV R1.SREG0 

MOV @RKDA,$REG1 

ERROR 3 



MOV #340,~(SP) 
MOV #64$,-{SP) 
RTI 



GO, DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET 1 ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET 1 IS LOCATED. 
THIS IS A VERY BASIC ERRS IF IT 
OCCURS GO BACK TO TEST 10 
CHECK IF SIN IS SET, IF 
SET DO DRIVE RESET TO CLR IT 
6 ;WCE IS SIMULATED BY DROPPING A BIT 
IN THE EIGHTH WORD (WHICH IS 174007) 
NGTE THAT THE 256 WORD MEMORY 
BUFFER (STARTING AT OUTBUF) IS 
CREATED IN A PREVIOUS TEST. 

WRT CHK 1000 (OCTAL) WORDS, 2 SECTORS 

FROM THIS BUS ADRES 

WITH THIS DISK ADRES, SEC 0, CYL 

SET UP INTERRUPT VECTOR FOR RK11 

SET PSW ON INTERRUPT 

WRT CHK, GO. SSE, IDE SET 

WAIT FOR INTERRUPT FROM RK1 1 

TIME=485 MS FOR 11/20, 

97 MS FOR 11/45 

; 11/05 
RK11 DID NOT INTERRUPT AFTER A SOFT 
ERROR (SIMULATED) IN SECTOR 



RESTORE STACK POINTER (FROM RK1 1 INTRUPT) 
POP STACK (FROM WAT. INT) 
RESTORE RK11 INTERRUPT VECTOR 
ADRES FOR UNEXPECTED INTERRUPTS 

CHECK THAT RKDA INCREMENTED 

BY ONLY 1 SECTOR BEFORE INTERRUPT 

OCCURRED 

GET EXF'.TD RKDA 

GET RKDA RECVD 

RKDA SHOULD HAVE INCREMENTED BY 

1 SECTOR ONLY, IF ALL CNTRL ACTION 

HAD STOPPED AFTER SOFT ERROR 

(SIMULATED) IN SECTOR 0. IT DID NOT. 
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5566 


017130 


005077 


162176 


5567 








5568 








5569 








5570 








5571 








5572 








5573 








5574 








5575 








5576 








5577 








5578 


017134 


000004 




5579 


017136 


013700 


001332 


5580 


017142 


012701 


177774 


5581 


017146 


005002 




5582 


017150 


012737 


017156 001110 


5583 








5584 


017156 


104417 


000142 


5585 


017162 


004737 


021436 


5586 


017166 


104016 




5587 


017170 


104413 




5588 








5589 








5590 








5591 








5592 








5593 








5594 








5595 








5596 








5597 


017172 


010210 




5598 


017174 


012777 


177777 162132 


5599 


017202 


013777 


001350 162130 


5600 


017210 


012777 


177776 162120 


5601 








5602 


017216 


052710 


000007 


5603 








5604 








5605 








5606 


017222 


104412 




5607 








5608 


017224 


104065 




5609 


017226 


010205 




5610 


017230 


062705 


000020 


5611 


017234 


042705 


000100 


5612 


017240 


01 1004 




5613 


017242 


042704 


177717 


5614 


017246 


020504 




5615 


017250 


001405 




5616 


017252 


010537 


001162 


5617 


017256 


010437 


001164 


5618 


017262 


104112 




5619 








5620 








5621 
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T51 CHECK THAT RK11 INTERRUPTS ON SOFT ERROR WHEN SSE & IDE ARE SET 

CLR @RKCS ;CLEAR THE IDE BIT 



SEO 0102 



52 CHECK THE MEX B 
*THIS TEST CHECKS OUT 

;*THE RKBA IS SET TO 17' 

*THIS COULD GIVE RISE 

*SHOULD OVERFLOW INTO 

*THAT THE OVERFLOWING 

;*01 ,10,11 ,00. 

SCOPE 

MOV RKCS.RO 
~MOV #-4,R1 

MOV #1$,$LPERR 

DELAY ,142 
JSR PC.TSTRWS 
ERROR 16 
CNT. RESET 



MOV 


R2,@R0 


MOV 


#»1 ,@RKWC 


MOV 


DRIVAD,@RKDA 


MOV 


#177776, @RKBA 



CHKCRDY 




ERROR 


65 


MOV 


R2.R5 


ADD 


#20, R5 


BIC 


#100, R5 


MOV 


#R0,R4 


BIC 


#177717, 


CMP 


R5,R4 


BEQ 


4$ 


MOV 


R5,$REG0 


MOV 


R4,$REG1 


ERROR 


112 



ITS IN RKCS 

THE EXTENDED MEMORY BITS OF THE RKCS. 
7776 AND A ONE WORD WRITE CHECK IS TRIED. 
TO NXM ERROR. BUT EVEN THEN THE RKBA 
THE MEX BITS. SIMILIARLY IT IS CHECKED 
BIT CAN MAKE THE MEX BITS COUNT 



SET UP THE COUNT 

INITIALIZE MEX BITS TO B SET IN RKCS 

SET RETURN ADRES FOR 

LUPING ON EROR (SW9) 

TIME DELAY 

WAIT FOR R/W/S RDY 

R/W/S RDY IS NOT SET 

GO, DO CONTROL RESET 

THIS IS A CALL FOR THE 'CNTRL- 

RESET' ROUTINE. A CONTROL RESET IS 

ISSUED AND AFTER A CERTAIN TIME 

IF THE 'CNTRL RDY' DOES NOT SET 

AN ERROR IS REPORTED. NOTE THAT 

THE PC IN ERROR MESSAGE IS THE 

PC WHERE 'CNT. RESET 1 IS LOCATED. 

THIS IS A VERY BASIC ERRS IF IT 

OCCURS GO BACK TO TEST 10 

SET MEX BITS (AS IN R2) IN RKCS 

WRT CHK 1 WORD 

THIS DISK ADRES, SEC 0, CYL 

THIS BUS ADRES. NOTE THIS BA 

IN CONJUCTION WITH MEX BITS OF RKCS 

WRT CHK, GO 

THERE MAY BE A NXM OR WCE BUT 

WHATEVER THE CASE RKBA SHOULD 

OVERFLOW MAKING THE MEX BITS COUNT 

GO CHECK IF CONTROL RDY IS SET 

IF SO. SKIP THE EROR MESSAGE. 

CNTRL RDY DID NOT SET AFTER WRT CHK 

MEX BITS SHOULD INCREMENT BY 1 TO THIS 

MASK OUT IDE BIT POSITION. IF SET 

GET RKCS 

MASK OUT ALL BITS EXCEPT MEX 

DID MEX BITS INCREMENT CORRECTLY? 

YES, BRANCH 

GET EXPCTD MEX BITS 

GET MEX BITS RECVD 

MEX BITS DID NOT INCREMENT AS 

'EXPCTD' WHEN RKBA OVERFLOWED. 

NOTE THAT BIT POSITION 4 & 5 

REFLECT MEX BITS a 1 IN THE 
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T52 CHECK THE MEX BITS IN RKCS 



SEO 0103 



5622 










5623 


017264 


017703 


162040 




5624 


017270 


01 0305 






5625 


017272 


042703 


003001 




5626 


017276 


00141 






5627 


017300 


042705 


177776 




5628 


017304 


010537 


001162 




5629 


017310 


017737 


162014 


001164 


5630 


017316 


104107 






5631 










5632 










5633 


017320 


062702 


000020 




5634 


017324 


005201 






5635 


017326 


001313 






5636 










5637 










5638 










5639 










5640 










5641 










5642 










5643 










5644 










5645 










5646 










5647 


017330 


000004 






5648 


017332 


012737 


000001 


001206 


5649 










5650 










5651 










5652 










5653 










5654 










5655 


017340 


012737 


017362 


000004 


5656 


017345 


005737 


177700 




5657 


017352 


012737 


004534 


000004 


5658 










5659 


017360 


000520 






5660 


017382 


022626 






5661 


017364 


012737 


004534 


000004 


5662 


017372 


012746 


000340 




5663 


017376 


012746 


017404 




5664 


017402 


000002 






5665 


017404 








5666 


017404 


013700 


001332 




5667 


017410 


104413 






5668 










5669 










5670 










5671 










5672 










5673 










5674 










5675 










5676 










5677 


017412 


012701 


033342 





MOV 
MOV 
BIC 
BEQ 
BIC 
MOV 
MOV 
ERROR 



ADD 
INC 
BNE 



©RKER.R3 
R3.R5 
#3001 ,R3 
5$ 

#177776, R5 
R5,$REG0 
g>RKER,$REG1 
107 



#20, R2 

R1 

1$ 



ERROR MESSAGE. 
GET RKER 

MASK WCE.DLT.NXM BIT, IF SET 

BRANCH IF REST OF RKER CLR 

MASK NON-WCE BITS 

THIS IS THE EXPCTD RKER 

GET RKER RECVD 

ERROR IN RKER. IT SHOULD 

BE AS EXPECTED IN 

ERROR MESSAGE 

INCREMENT TO NXT MEX BIT 

HAVE U CHKD THE MEX BITS 4 TI 

IF NOT, LUP BACK 



..*#$$##$**$*#*****##***********#*********************»********** 
;*TEST 53 TRANSFER FROM DISK TO TTY 

THIS TEST CHECKS THE HIGH ORDER BITS OF THE ADDRESS 
LINES. FIRST A ONE WORD (100) IS WRITTEN ON SECTOR, 
2, CYL 0. THEN IT IS READ BACK, BUT THE NPR IS DONE 
NOT TO THE MEMORY, BUT THE TELETYPE BUFFER (TKS 177560) 
AND IT CHECKED THAT THE WORD WAS RECIEVED CORRECTLY. 
;*XF IT IS NOT, AN ERROR IS REPORTED. THIS TEST IS 
;*SKIPPED ON AN 11/05. 

TST53! SCOPE 



MOV 



#1 .STIMES 



MOV 


#5S,@#4 


TST 


©#177700 


MOV 


#BADTM0,@#4 


BR 


TST54 


CMP 


(SP)+,(SP)+ 


MOV 


#BADTMQ,@#4 


MOV 


#340, -(SP) 


MOV 


#64$,-(SP) 


RTI 




MOV 


RKCS,R0 


CNT. 


RESET 



;D0 1 ITERATION 

THIS CODE FINDS OUT IF THE CPU 

IS AN 11/05 OR ELSE. 

ON AN 11/05, RO (177700) CAN BE 

ADDRESSED AS A MEMORY LOCATION, BUT 

ON ANY OTHER CPU IF 177700 IS REFERENCED 

A TIME OUT WILL OCCUR. 

SET UP TIME OUT VECTOR 

REFERENCE RO 

RO WAS REFERENCED W/0 TIMEOUT 

HENCE 11/05 

;SKIP THIS TEST 

RESTORE STACK POINTER 

RESTORE TIMEOUT VECTOR 



;G0, DO CONTROL RESET 
;THIS IS A CALL FOR THE 'CNTRL- 
;RESET' ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
;IF THE 'CNTRL RDY 1 DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
;THE PC IN ERROR MESSAQE IS THE 
;PC WHERE 'CNT. RESET 1 IS LOCATED. 
;THIS IS A VERY BASIC ERR& IF IT 
; OCCURS GO BACK TO TEST 10 



MD-1 1-CZRKKF. 

CZRKKF.P11 
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SEQ 0104 



5678 
5679 
5680 
5681 
5682 
5683 
5684 
5685 
5686 
5687 
5688 
5689 
5690 
5691 
5692 
5693 
5694 
5695 
5696 
5697 
5698 
5699 
5700 
5701 
5702 
5703 
5704 
5705 
5706 
5707 
5708 
5709 
5710 
5711 
5712 
5713 
5714 
5715 
5716 
5717 
5718 
5719 
5720 
5721 
5722 
5723 
5724 
5725 
5726 
5727 
5728 
5729 
5730 
5731 
5732 
5733 



017416 
Q17422 
017426 
017434 
017440 
017444 
017450 
017452 
01745S 
017460 
017462 
017464 
017466 
017470 
017474 
017500 
017502 

017504 
017512 
017516 
017522 

017528 
017532 
017534 
017536 
017540 
017542 
017544 
017550 
017554 
017556 



3704 
2711 
2777 

3702 



052702 



0277 
0114 
2710 
005003 
105710 
100410 
005203 
001374 
004737 
010237 
104416 
104031 

012777 
01 0277 
01 3714 
005077 

012710 
005003 
105710 
100410 
005203 
001374 
004737 
010237 
104416 
104045 



001336 
000100 
177777 
001350 
000002 
161670 

000003 



020774 
001202 



177777 

161622 
001144 
161416 

000065 



020774 
001202 



017560 032737 000100 001144 4$! 



017566 
017570 

017574 
017600 
017604 
017610 
017614 
017620 



001015 
017705 
010537 
052705 
010537 
011437 
01 1037 
104115 



161350 
001164 

000100 
001162 
001166 
001170 



MOV 

MOV 

MOV 

MOV 

BIS 

MOV 

MOV 

MOV 

CLR 

TSTB 

BMI 

INC 

BNE 

JSR 

MOV 

BRKDA4 

ERROR 

MOV 
MOV 
MOV 
CLR 

MOV 

CLR 

TSTB 

BMI 

INC 

BNE 

JSR 

MOV 

BRKDA4 

ERROR 



RKBA.R4 
#100, @R1 
#-1 ,@RKWC 
DRIVAD.R2 
#2,R2 
R2,OTKDA 
R1 ,@R4 
#3,f»R0 
R3 

mo 

2$ 
R3 

1$ 

PC.GT4RG 

R2,$REG10 

31 

#-1 9 @RKWC 

R2,@RKDA 

STKS,@R4 

@$TKS 

#65,@R0 

R3 

@R0 

4$ 

R3 

3$ 

PC.GT4RG 

R2,$REG10 

45 



BIT 


#100,STKS 


BNE 


TST54 


MOV 


@$TKS,R5 


MOV 


R5.SREG1 


BIS 


#100,R5 


MOV 


R5.SREG0 


MOV 


#R4,$REG2 


MOV 


#R0,$REG3 


ERROR 


115 



;WRITE THIS WORD 
;WRITE 1 WORD 



;0N CYL 0, SEC 2 



;FROM THIS MEMORY LOC 
;WRITE, GO 



GET RKCS, ER, DS 

GET THE STARTING ADRES 

BREAK IT INTO DRV #, CYL, SUR, SEC # 

CNTRL RDY DID NOT SET AFTER 

WRITE OF 1 WORD ON CYL 0, SEC 2 

READ 1 WORD 

FROM SEC 2, CYL 

INTO TTY STAUS REGISTER 

CLEAR TTY KEY BRD STATUS REG 

READ, MEX BITS SET 



GET THE STARTING ADRES 

BREAK IT INTO DR#, CYL, SUR. SEC# 

CNTRL RDY DIDN'T SET AFTER 

READ OF 1 WORD FROM CYL 0, SEC 2. 

IN EROR MSGE, <DSK-ADRES> GIVES 

ADRES WHERE READ BEGAN. 'RKDA' 

GIVES CONTENTS OF RKDA AT TIME OF EROR 

WAS THE CORRECT WORD READ INTO 

THE TTY STATUS REGISTER? 

;YES. EXIT 

;GET THE WORD RECVD FROM DISK 

THIS WORD WAS EXPCTD 

STORE EXPCTD WORD 

GET RKBA 

GET RKC:, 

DATA ERROR. A ONE WORD (100) 

NPR WAS TRIED FROM DISK TO 

TTY KEYBOARD STATUS REGISTER 

(17756) . BIT 6 SHOULD HAVE BEEN 

SET AS RESULT OF THIS 
BUT IT WAS NOT 



"■■iSijtifi***********®*********************************** 

••TEST 54 CHECK THAT RKBA CAN COUNT CORRECTLY 



# «$#!«$!* & 
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5734 








5735 








5736 








5737 








5738 








5739 








5740 








5741 








5742 


017622 


000004 




5743 


017624 


012737 


000005 001206 


5744 


017632 


104421 




5745 


017634 


005001 




5746 


017636 


012702 


000002 


5747 








5748 


017642 


012737 


017654 001110 


5749 








5750 








5751 


017650 


013705 


001336 


5752 


017654 


004737 


021436 


5753 


017660 


104016 




5754 


017662 


104413 




5755 


017664 


012777 


177777 161442 


5756 


017672 


01 01 15 




5757 


017674 


013777 


001350 161436 


5758 


017702 


012777 


000067 161422 


5759 


017710 


104412 




5760 








5761 


017712 


104065 




5762 








5763 








5764 








5765 


017714 


005237 


001356 


5766 


017720 


001417 




5767 








5768 


017722 


020215 




5769 








5770 


017724 


001410 




5771 


017726 


010137 


001162 


5772 


017732 


01 1537 


001164 


5773 


017736 


104017 




5774 








5775 








5776 








5777 








5778 








5779 








5780 








5781 


017740 


005237 


001360 


5782 


017744 


001405 




5783 


017746 


060201 




5784 


017750 


01 0102 




5785 


017752 


062702 


000002 


5786 


017756 


001336 




5787 








5788 


017760 






5789 
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*THIS TEST CHECKS THAT RKBA CAN COUNT CORRECTLY. IT IS SET 
*T0 THE DESIRED INITIAL VALUE. THEN A ONE WORD WRITE CHECK 
US TRIED, WITH MEX (MEMORY EXTENSION) BITS SET. IF THERE IS 
*N0 MEMORY PRESENT (FOR CERTAIN BUS ADDRESSES). THERE 
*WILL BE AN NXM ERROR STOPPING CONTROLLER ACTION. BUT RKBA 
*SHOULD HAVE INCREMENTED BY 1 FROM ITS INITIAL VALUE. IF IT 
kHAS NOT, AN ERROR IS REPORTED. 



SCOPE 

MOV #5,$TIMES 

TST.SIN 

CLR R1 

MOV #2,R2 

MOV #1$,$LPERR 



MOV RKBA.R5 

JSR PC.TSTRWS 

ERROR 16 

CNT. RESET 

MOV #-1 ,©RKWC 

MOV R1 ,©R5 ;THIS 

MOV DRIVAD,@RKDA 

MOV #67,@RKCS 

CHKCRDY 



ERROR 65 



INC 

BEQ 

CMP 

BEQ 
MOV 
MOV 
ERROR 



INDX1 
5$ 



R2,@R5 



4$ 

R1 ,SREGO 

@R5,$REG1 
17 



INC 


INDX2 


BEQ 


5$ 


ADD 


R2.R1 


MOV 


R1 ,R2 


ADD 


#2,R2 


BNE 


1$ 



; ;D0 5 ITERATIONS 

;CHECK IF SIN SET, IF SET DRV RESET 
INITIALIZE (VALUE OF RKBA) 
INITIALIZE (INCMNTD VALUE OF RKBA) 

;SET RETURN ADRES FOR LUPING 
;0N EROR 



WAIT FOR R/W/S RDY 
R/W/S RDY IS NOT SET 
DO CONTROL RESET 
WRITE CHK 1 WORD 

ADRES 
SET DISK ADRES 

WRITE CHECK, GO, MEX BITS SET 
GO CHEC" IF CONTROL RDY IS SET 
IF SO, SKIP THE EROR MESSAGE. 
CNTRL RDY DID NOT SET AFTER 
WRT CHK WAS TRIED TO NXM LOG 
U MIGHT WANT TO USE TESTS 
CHECKING MEX BITS & NXM. 
ALLOW ONLY 5 ERRORS OF ABOVE KIND 



DID RKBA INCREMENT BY 1 FROM 

ITS INITIAL VALUE? 

YES, BRANCH 

GET EXPCTD RKBA 

GET RKBA RECVD 

RKBA DID NOT INCREMENT BY 

1 FROM ITS INITIAL VALUE. 

ONE WORD WRT CHK WAS TRIED 

TO A NXM LOCATION. THERE 

WILL BE AN NXM ERROR, 

BUT STILL RKBA SHOULD 

INCREMENT BY 1 FROM ITS 

INITIAL VALUE. 

ALLOW ONLY 5 ERRORS OF 

THE ABOVE KIND 

SET NXT VALUE OF RKBA 

SET EXPCTD VALUE OF RKBA 
ALL DONE? 

DUMMY EXIT POINT 
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5790 
5791 
5792 

5793 
5794 



5795 
5796 
5797 
579B 
5799 
5800 
5801 
5802 
5803 
5804 
5805 
5806 
5807 
5808 
5809 
5810 
5811 
5812 
5813 
5814 
5815 
5816 
5817 
5818 
5819 
5820 
5821 
5822 
5823 
5824 
5825 
5826 
5827 
5828 
5329 
5830 
5831 
5832 
5833 
5334 
5835 
5836 
5837 
5838 
5839 
5840 
5841 
5842 
5843 
5844 
5845 
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J******* *** ft**********************************;):****!^!**,),)}! 

*TEST 55 CHECK FOR RK-05F 

*THIS TEST CHECKS RK-05F TYPE DRIVES 
;*TO INSURE THAT IF SEEKS ARE ISSUED ON ONE 
*DRIVE, THE OTHER DRIVE BECOMES BUSY 



SEQ 0106 



************ 



017760 
017762 
017770 
017774 
017776 
020002 

020004 



000004 
012737 
005737 
001403 
004537 
104120 



000001 
001404 



SCOPE 




MOV 


#1 ,$TIMES 


TST 


FFLAG 


BEQ 


1$ 


JSR 


R5.FCHECK 


ERROR 


120 



020004 000004 

020006 012737 

020014 005237 

020020 004737 

020024 104026 

020026 023737 

020034 001405 

020036 062737 

020044 000137 



000001 
001352 



021504 
001412 



020000 
005040 



|DO 1 ITERATION 

SEE IF RK-05F 

NOT F 

SEE IF OTHER GOES BUSY 



;;***********************************#*********************,),$*,{($$ 

;*TEST 56 END OF PROGRAM 

;*THIS IS NOT A TEST, BUT A LINKAGE PROVIDED TO PERFORM 
;*THE ABOVE SUB-TESTS FOR ALL DRIVES THAT ARE PRESENT. 
;*NOTE THAT THE NEXT TEST- HARDWARE POLLING LOGIC- 
;*IS DONE USING ALL THE DRIVES THAT ARE INDICATED PRESENT. 
;*DO NOT LOOP ON THIS 'TEST 1 . 

J J ******** ********* ** * ***** ***** ******************* ************** 

TST56: SCOPE 

; ;D0 1 ITERATION 



001352 BTEOP: 



MOV 
INC 

JSR 

ERROR 

CMP 

BEQ 

ADD 
JMP 



#1 ,$TIMES 
DRVDON 

PC.DRESET 
26 

DRIVS, DRVDON 

1$ 

#200QQ f DRIVAD 

NUDRV 



020050 005037 001112 



INCREMENT THE COUNT FOR THE NUMBER 

OF DRIVES THAT ARE CHECKED 

RESET THE DRIVE 

R/W/S DIDN'T SET AFTER DRIVE RESET 

HAVE U TESTED ALL THE DRIVES 

THAT ARE PRESENT? 

IF YES, EXIT 

ADRES THE NXT POSSIBLE DRIVE 

GO BACK AND TEST THE NEXT 

DRIVE PRESENT 



020054 000004 



^ft************************************************************ 

TEST 57 CHECK HARDWARE POLLING LOGIC 

*THIS TEST CHECKS THE HARDWARE POLL LOGIC, USING ALL THE DRIVES 

*PRESENT ON THE RK11. ATLEAST TWO DRIVES SHOULD BE PRESENT 

*T0 DO A MEANINGFUL HARDWARE POLL. SEQUENCE OF OPERATIONS IS 

*AS FOLLOWING: 

*1) NUMBER OF DRIVES ON THE RK11 IS ASCERTAINED. 

*2) HAVING LOCKED OUT ALL INTERRUPTS (CPU PR 7), SEEK IS INITIATED 

*FOR ONE DRIVE AT A TIME, ONLY WHEN 'CNTRL RDY' IS SET. 

*3) CPU PRIORITY IS DROPPED TO 4 SO THAT RK11 CAN INTERRUPT, THE INCOMING 

INTERRUPT IS PROCESSED TO CHECK IF IT WAS DUE TO 'SEEK DONE' BY 

*ONE OF THE DRIVES. 

*4) IF BY THE END OF THE SET TIME A DRIVE HAS NOT INTERRUPTED 

*AN ERROR MESSAGE IS GIVEN INDICATING WHICH DRIVE DID NOT 

♦INTERRUPT AFTER SEEK WAS DONE. 

#***********#**** ! j t i3ll{i***T8t,)[*****!fc************************** 

SCOPE 
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SEO 0107 



5846 


020056 


012737 


000005 


5847 


020064 


005237 


001440 


5848 


020070 


001002 




5849 


020072 


004737 


025304 


5850 


020076 


005037 


001436 


5851 


020102 


012700 


001414 


5852 


020106 


005710 




5853 


0201 10 


001405 




5854 


0201 12 


005237 


001436 


5855 


0201 16 


005710 




5856 


020120 


100001 




5857 


020122 


005720 




5858 


020124 


005720 




5859 


020126 


020027 


001433 


5860 


020132 


002765 




5861 


020134 


005037 


001406 


5862 


020140 


005737 


001412 


5863 


020144 


001002 




5864 


020146 


000137 


020652 


5865 


020152 


005237 


001434 


5866 


020156 


013700 


001332 


5867 


020162 


005037 


001356 


5868 








5869 








5870 








5871 








5872 


020166 


005037 


001360 


5873 








5874 








5875 








5876 


020172 


104413 




5877 








5878 








5879 








5880 








5881 








5882 








5883 








5884 








5885 








5886 


020174 


005737 


001356 


5887 


020200 


001002 




5888 


020202 


005002 




5889 


020204 


000402 




5890 


020206 


012702 


000200 


5891 


020212 


012701 


001414 


5892 


020216 


012703 


177770 


5893 


020222 


012705 


033342 


5894 


020226 


005025 




5895 


020230 


005203 




5896 


020232 


001375 




5897 


020234 


012703 


177770 


5898 


020240 


012705 


Q33342 


5899 


020244 






5900 


020244 


012746 


000340 


5901 


020250 


01274© 


020256 





MOV 


#5,$TIMES 


; ;D0 5 ITERATIONS 




INC 


SIZYET 


;FOUNR RK05F YET? 




BNE 


25$ 


;YES 




JSR 


PCSIZEF 


; FIND WHICH ARE RK-05F 


25$: 


CLR 


PHYDRV 


;NUMBER OF ACTUAL DRIVES 




MOV 


#DRIV0,RQ 


; TABLE 


23$: 


TST 


(RO) 


;DRIVE HERE-*-? 




BEQ 


22S 


;N0 




INC 


PHYDRV 


;COUNT DRIVE 




TST 


(RO) 


;RK05F? 




BPL 


22$ 


;N0 




TST 


(R0) + 


;DONT COUNT F TWICE 


22$: 


TST 


(R0)+ INEXT 


DRIVE 




CMP 


RQ,#DRIV7+1 


;ALL YET 




BLT 


23$ 


;N0 




CLR 


ODDEVN 


;EVEN DRIVES FIRST IF F 


T56: 


TST 


DRIVS 


;ANY DRIVES PRESENT? 




BNE 


20$ 


;YES 




UMP 


$EOP 


;N0 


20$ : 


INC 


T56FLG 






MOV 


RKCS.RO 






CLR 


INDX1 


;PLAG TO INDICATE: 



TST 


INDX1 


BNE 


.+6 


CLR 


R2 


BR 


.+6 


MOV 


#200, R2 


MOV 


#DRIV0,R1 


MOV 


#-10, R3 


MOV 


#OUTBUF,RS 


CLR 


(R5) + 


INC 


R3 


BNE 


.-4 


MQV 


#-1Q,R3 


MOV 


#OUTBUF,R§ 



(INDX1)"0 POLLING DONS AFTER ALL 

;DRIVES SEEK TO CYL 
(INDX1)=1 POLLING DONE AFTER ALL 

-.DRIVES SEEK TO CYL 4 
FLAG INDICATING TYPE OF INTERRUPT 
SET TO NON-ZERO TO INDICATE 
THAT THE INTERRUPT IS DUE TO 
SEEK DONE 

GO, DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET 1 ROUTINE. A CONTROL RESET 1$ 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERR& IF IT 
OCCURS GO BACK TO TEST 10 
PERFORMING SEEKS TQ CYL 4 
YES, BRANCH 
NO 

SET ADRES FOR FOURTH CYLINDER 

INITIALIZE POINTER 

SET COUNT FOR 8 DRIVES 

INITIALIZE POINTER TO INDICATOR AREA 

CLEAR OUT THE 8-WORD INDICATOR 

AREA WHICH IS USED FOR DOING 

SOFTWARE POLLING LATER ON 

SET COUNT FOR 8 POSSIBLE DRIVES 

INITIALIZE POINTER TQ INDICATOR AREA 



MOV #340,~{SP) 
MOV #©4S,-(SP) 
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5902 


020254 


000002 




5903 


020256 






5904 


020256 


03271 1 


000001 


5905 


020262 


001433 




5906 


020264 


00571 1 




5907 


020266 


100012 




5908 


020270 


032702 


020000 


5909 


020274 


001404 




5910 


020276 


005737 


001406 


5911 


020302 


001423 




5912 


020304 


000403 




5913 


020306 


005737 


001406 


5914 


020312 


001017 




5915 


020314 


010215 




5916 








5917 








5918 








5919 


020316 


042725 


017777 


5920 


020322 


005004 




5921 


020324 


105710 




5922 


020326 


100405 




5923 


020330 


005204 




5924 


020332 


001374 




5925 


020334 


004737 


020774 


5926 


020340 


104021 




5927 








5928 


020342 


010277 


160772 


5929 








5930 


020346 


012710 


000111 


5931 


020352 


005721 




5932 


020354 


062702 


020000 


5933 


020360 


005203 




5934 


020362 


001330 




5935 








5936 








5937 








5938 








5939 








5940 








5941 


020364 


005004 




5942 


020366 


013702 


001402 


5943 


020372 


012722 


020424 


5944 


020376 


012712 


000340 


5945 


020402 


013746 


001400 


5946 


020406 


012746 


020414 


5947 


020412 


000002 




5948 


020414 


000240 




5949 


020416 


005204 




5950 


020420 


001375 




5951 


020422 


0Q0452 




5952 








5953 


020424 


022626 




5954 


020426 


005737 


001360 


5955 








5956 








5957 


020432 


001021 





BIT 


#BIT0,(R1) 


BEO 


4$ 


TST 


(R1) 


BPL 


17$ 


BIT 


#BIT13,R2 


BEQ 


16$ 


TST 


ODDEVN 


BEQ 


4$ 


BR 


17$ 


TST 


ODDEVN 


BNE 


4$ 


MOV 


R2 f (R5) 


BIC 


#17777, (R5) 


CLR 


R4 


TSTB 


©RO 


BMI 


3$ 


INC 


R4 


BNE 


2$ 


USR 


PC.GT4RG 


ERROR 


21 


MOV 


R2,@RKDA 


MOV 


#111 f @R0 


TST 


(R1) + 


ADD 


#20000, R2 


INC 


R3 


BNE 


15 



CLR 


R4 


MOV 


RKVECR2 


MOV 


#e$,{R2)* 


MOV 


#340, (R2) 


MOV 


RKPRI,-(SP) 


MOV 


#18$ f -(SP) 


RTI 




NOP 




INC 


R4 


BNE 


18$ 


BR 


11$ 


CMP 


(SP)+ f (SP)+ 


TST 


INDX2 



IS THIS DRIVE PRESENT? 

IF NOT, BRANCH 

RK06F? 

NO, CONTINUE 

DRIVE EVEN? 

YES 

DO WE WANT ODD? 

NO, SO DO NOT TEST 

ADD THIS DRIVE TO LIST 

DO WE WANT EVEN? 

NO, SO SKIP 

SET UP THIS WORD IN THE 

INDICATOR AREA SHOWING THAT THIS 

DRIVE (AS IN BITS 13-15 OF R2) 

IS PRESENT 

MASK OUT UNWANTED BITS (CYL.SUR.SEC SITS) 

IS CNTRL RDY SET? 

YES, BRANCH 

NO, WAIT FOR IT 

IF WAITED LONG REPORT ERROR 

;G0. GET RKCS , ER , OS ,DA 
CNTRL RDY DID NOT SET AFTER ACCEPTING 
ADRES F°0M PREVIOUS SEEK 
ADRES THIS DRIVE, CYL OR CYL 4 
(WHICHEVER THE CASE MAY BE) 
SEEK, GO, IDE SET 
NEXT DRIVE DATA 

INCREMENT DRIVE ADRES (BITS 15,14.13) 
TO NEXT ONE 

BRANCH BACK IF ALL DRIVES ARE 
NOT CHECKED TO SEE IF THE NEXT 
DRIVE IS PRESENT (« IF SO ISSUE A 
SEEK TO IT) 

BY NOW SEEKS HAVE BEEN ISSUED 
TO ALL DRIVES PRESENT & POLLING 
HAS BEGUN 



SET ADRES FOR RK11 TO INTERUPT 
SET PSW ON INTERUPT 
DROP CPU PRIORITY TO 4 SO THAT 
;RK11 CAN INTERUPT 

THIS IS A TIME LOOP DURING 

WHICH ALL DRIVES PRESENT SHOULD 

INTERRUPT 

BRANCH AND CHECK IF ALL AVAILABLE 

DRIVES INTERRUPTED CORRECTLY 

RESTORE STACK POINTER 

WAS THIS FIRST INTERRUPT 

DUE TO 'ADRES ACK' AFTER INITIATION 

OF SEEK? 

IF YES, CHECK THE FOLLOWING 
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5958 

5959 

5960 

5961 

5962 

5963 

5964 

5965 

5966 

5967 

5968 

5959 

5970 

5971 

5972 

5973 

5974 

5975 

597S 

5977 

5978 

5979 

5980 

5981 

5982 

5983 

5984 

5985 

5986 

5987 

5988 

5989 

5990 

5991 

5992 

5993 

5994 

5995 

5996 

5997 

5998 

5999 

6000 

6001 

6002 

6003 

6004 

6005 

6006 

6007 

6008 

6009 

6010 

6011 

6012 

6013 



020434 032710 020000 

020440 001403 

020442 011037 001162 

020446 104076 

020450 017701 160652 

020454 032701 160000 

020460 001403 

020462 010137 001162 

020466 104050 



020470 005237 001360 



BIT #20000, @R0 

BEQ 7$ 

MOV @R0,$REG0 

ERROR 76 



MOV 


§>RKDS,R1 


BIT 


#160000, R1 


BEO 


8S 


MOV 


R1 ,SREG0 



020474 000734 



020476 
020502 

020506 
020512 



013703 
012705 
017701 
042701 



001436 
033342 
160614 
017777 



BR 

MOV 
MOV 
MOV 
BIC 



020516 020125 

020520 001411 

020522 005303 

020524 001374 



020526 010146 

020530 004737 021200 

020534 012637 001162 



020540 104051 



020542 000401 

020544 005245 



020546 000707 

020550 013703 001436 

020554 012705 033342 



5$ 

PHYDRV,R3 
#0UTBUF,R5 
@RKDS,R1 
#17777, R1 



CMP 
BEO 

DEC 
BNE 


R1 ,(R5)+ 

10$ 

R3 

.-6 


MOV 
JSR 
MOV 


R1 ,-(R61 

PCSHFTRT 

(R6)+,$REG0 


ERROR 


51 


BR 

INC 


10S+2 
-(R5) 


BR 

MOV 

MOV 


5$ 

PHYDRV,R3 

#0UTBUF,R5 



CHECK THAT SCP IS NOT SET 

BRANCH IF SCP CLEAR 

GET RKCS 

AFTER THE FIRST INTERRUPT WHICH 

IS DUE '.0 INITIATION OF SEEK, SCP 

SHOULD NOT HAVE SET. IT DID 

RKDS BITS 15-13 SHLOULD BE CLR 

GET RKDS 

SEEK, WITH IDE SET WAS ISSUED TO 

ALL AVAILABLE DRIVES. THE FIRST 

INTERUPT IS DUE TO SEEK INITIATED 

BY FRST DRV. DRV ID BITS 13-15 

SHOULD BE CLR AFTR THIS FRST INRUPT. 

THEY WERE NOT IF THIS ERROR OCCURS. 

SET UP FLAG INDICATING 

THAT THE FIRST INTERRUPT DUE 

TO INITIATION OF SEEK WAS 

PROCESSED 

GO BACK TO THE WAIT LOOP & WAIT 

FOR NEXT INTERRUPT FROM RK1 1 

SET COUNT OF # OF DRIVES PRESENT 

INITIALIZE POINTER 

GET RKDS 

MASK BITS 0-12 

THE FOLLOWING CODE IS A SOFTWARE 

POLL WHICH FINDS OUT WHICH DRIVE 

CAUSED THE PRESENT INTERRUPT 

AND SETS UP A FLAG BIT FOR 

THE DRIVE #, INDICATING THAT 

THIS DRIVE # INTERRUPTED 



BRANCH IF INTERRUPTING 
HAVE U CHKD ALL DRIVS PI 
IF NOT LUP BAK & CHK 
REPORT ERROR IF THE INT 
DRIVE # (AS IN RKDS 13- 
ANY ONE OF THOSE THAT , 
GET WORD TO B SHFTD RT 
GO SHIFT IT 

THIS DRIVE # WAS RECVD 
THE INTERRUPTING DRIVE 
DRIVE IS NOT PHYSICALY 
RKDS INDICATES AN INTER 
DRIVE # (DURING H'WARE 
THAT DRIVE IS ACTUALLY 



DRIVE WAS FOUND 
RESENT? 

ERRUPTING 
15) WAS NOT 

RE PRESENT 



IN RKDS AS 

BUT THIS 
PRESENT 
RUPTING 
POLL) BUT 
NOT PRESENT 



SET UP FLAG INDICATING THAT 

THE INTERRUPT FOR THIS DRIVE 

(AFTER IT HAD COMPLETED ITS SEEK) 

WAS PROCESSED 

GO BAK & WAIT FOR FURTHER INTRUPTS 

GET # OF DRIVES 

INITIALIZE POINTER 
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SEQ 0110 



6014 
6015 
6016 
6017 
6018 
6019 
6020 
6021 
6022 
6023 
6024 
6025 
6026 
6027 
6028 
6029 
6030 
6031 
6032 
6033 
6034 
6035 
6036 
6037 
6038 
6039 
6040 
6041 
6042 
6043 
6044 
6045 
6046 
6047 
6048 
6049 
6050 
6051 
6052 
6053 
6054 
6055 
6056 
6057 
6058 
6059 
6060 
6061 
6062 
6063 
6064 
6065 
6066 
6067 
6068 
6069 



020560 
020562 
020564 
020566 
020572 



020600 
020604 
020606 

020610 

020614 
020616 
020622 



105715 

U01006 
01 1546 

004737 021200 
012637 001162 



TSTB 


<R5) 


BNE 


13$ 


MOV 


(R5),-(R6) 


JSR 


PCSHFTRT 


MOV 


(R6)+,$REG0 



020576 104052 



062705 000002 

005303 
001364 

005737 001356 
001004 

005237 001356 

000137 020166 



ADD 


#2, 


DEC 


R3 


BNE 


14$ 



TST INDX1 

BNE TSTEND 

INC INDX1 

dMP 15$ 



020626 
020632 
020640 
020642 
020846 



005237 
022737 
001402 
000137 
005037 



001406 
000002 



020140 
001434 



INC 
CMP 
BEQ 
dMP 
CLR 



ODDEVN 

#2,0DDEVN 

21$ 

T56 

T56FLG 



DID THIS DRIVE INTERRUPT? 

YES, BRANCH 

GET THIS DRIVE ff 

SHIFT IT TO THE RIGHT 

THIS DRIVE # DID NOT INTERRUPT 

DURING H'WARE POLL 

DRIVE # (AS IN SREGO) DID NOT 

INTERRUPT DURING HARDWARE POLL 

INCREMENT POINTER TO THE NEXT FLAG 

CHKD FOR ALL DRIVES? 

IF NOT LUP BACK 

DONE POLLING FOR SEEKS TO CYL 312? 

IF YES, EXIT 

IF NOT, INCREMENT FLAG 

GO DO IT 

INDICATOR TABLE 

THE 8-WORD INDICATOR TABLE USED IN 

THE FORMER PART OF THIS SUB-TEST 

IS LOCATED STARTING AT 'OUTBUF 1 . 

WORDS ARE SET UP TO INDICATE 

PRESENCE OF A DRIVE EG: IF 

DRIVES 0,1,2 ARE PRESENT, IT WILL 

LOOK LIKE 

OUTBUF: 000000 BITS 13,14,15 

020000 CONTAIN THE 

040000 DRIVE NO. 
000000 REST O'S 

WHEN A DRIVE INTERRUPTS AFTER SEEK 
IS DONE BIT OF THE CORRESPONDING 
INDICATOR WORD IS SET. THUS FOR THE 
ABOVE EXAMPLE IF ALL DRIVES INTERRUPTED 
CORRECTLY THEN IT WILL LOOK LIKE: 
12$: 000001 BIT SET 

020001 TO INDICATE 

040001 DR INTERRUPTED 
000000 REST O'S 



;NOW ODD IF RKOSF 
;SEE IF DONE 
;ALL DONE 
;TEST AGAIN 



•S8TTL END OF PASS ROUTINE 

•^INCREMENT THE PASS NUMBER ($PASS) 

VINDICATE END-OF-PROGRAM AFTER 1 PASSES THRU THE PROGRAM 

;*TYPE "END PASS #XXXXX M (WHERE XXXXX IS A DECIMAL NUMBER) 

;*IF THERES A MONITOR GO TO IT 

;*IF THERE ISN'T JUMP TO ST4 
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SEQ 011 1 



6070 


















6071 


020552 






$EOP: 










6072 


020652 


000004 






SCOPE 








6073 


020654 


005037 


001102 




CLR 


STSTNM 




;;ZERO THE TEST NUMBER 


6074 


020660 


005037 


001206 




CLR 


STIMES 




;;ZERO THE NUMBER OF ITERATIONS 


6075 


020664 


005237 


001100 




INC 


SPASS 




; ; INCREMENT THE PASS NUMBER 


6076 


020670 


042737 


100000 


001100 


BIC 


#100000, SPASS 




;;DQN'T ALLOW A NEG. NUMBER 


6077 


020576 


005327 






DEC 


(PC) + 




; ; LOOP? 


6078 


020700 


000001 




SEOPCT: 


.WORD 


1 






6079 


020702 


003022 






BGT 


SDOAGN 




; ;YES 


6080 


020704 


012737 






MOV 


(PC)+,@(PC)* 




; ^RESTORE COUNTER 


6081 


020706 


000001 




SENDCT: 


.WORD 


1 






6082 


020710 


020700 






SEOPCT 








6083 


020712 


104401 


020757 




TYPE 


,$ENDMG 




; ;TYPE "END PASS #" 


6084 


020716 


01 3746 


001100 




MOV 


SPASS, -(SP) 




;;SAVE SPASS FOR TYPEOUT 


6085 


020722 


104405 






TYPDS 






;;G0 TYPE— DECIMAL ASCII WITH SIGN 


6086 


020724 


104401 


020754 




TYPE 


,$ENULL 




;;TYPE A NULL CHARACTER 


6087 


020730 


013700 


000042 


SGET42: 


MOV 


§>#42,R0 




; ;GET MONITOR ADDRESS 


6088 


020734 


001405 






SEQ 


SDOAGN 




; ;BRANCH IF NO MONITOR 


6089 


020736 


000005 






RESET 






;;CLEAR THE WORLD 


6090 


020740 


004710 




SENDAOJ 


JSR 


PC t (RO) 




; ;GO TO MONITOR 


6091 


020742 


000240 






NOP 






; ; SAVE ROOM 


6092 


020744 


000240 






NOP 






; ; FOR 


6093 


020746 


000240 






NOP 






;;ACT11 


6094 


020750 






SD0AGN5 










6095 


020750 


000137 






JMP 


@(PC)+ 




; ; RETURN 


6096 


020752 


004456 




SRTNAD: 


.WORD 


ST4 






6097 


020754 


377 


377 


000 SENULLJ 


.BYTE 


-1,-1,0 




;;NULL CHARACTER STRING 


6098 


020757 


015 


042412 


042116 SENDMG: 


.ASCIZ 


<15><12>/END 


PASS #/ 


6099 


020764 


050040 


051501 


020123 










6100 


020772 


000043 














6101 


















6102 


















6103 


















6104 


















6105 


















6106 


















61 07 
6108 










.SBTTL 


GT2RGS ROUTINE 


FOR GETTING RKCS, RKER 


6109 
61 10 








ISUBROUTINE FOR 


TRANSFERRING 


THE 


CONTENTS OF RKCS, RKER 


611 1 








;TQ SREGO, SREG1 RESPECTIVELY 


BEFORE TYPING OUT AN ERROR MESSAGE. 


6112 








jCALLi 


JSR 


PCQT2RG 






6113 
61 14 










.SBTTL 


GT3RG: ROUTINE 


FDR GETTING RKCS, RKER, RKDS 


61 15 


















6116 








IGT3RG 










61 17 








^SUBROUTINE FOR 


TRANSFERRING 


THE 


CONTENTS OF RKCS, RKER, RKDS 


6118 








jTO IREGO, SREG1, SREG2 RESPECTIVELY BEFORE TYPING OUT AN 


611 9 








;ERROR 


MESSAGE. 








6120 








;CAUS 


JSR 


PC6T3RG 






6121 
6122 










.SBTTL 


GT4RG5 ROUTINE 


FOR GETTING RKCS, RKER, RKDS, RKDA 


6123 


















6124 








?GT4RG 










612S 








SUBROUTINE FOR 


TRANSFERRING 


CONTENTS OF RKCS, RKER, RKDS 



017737 160340 001178 

017737 160320 001166 

017737 160314 001164 

017737 160310 001162 
000207 



MD-11-CZRKKF, RK1 1 BASIC LOGIC TEST 2 
C2RKKF.P11 21-FEB-78 08:51 



6128 
6127 
6128 
6129 

6130 020774 

6131 021002 

6132 021010 

6133 021016 

6134 021024 
6135 

6136 
6137 
6138 
6139 
6140 
6141 
6142 
6143 
6144 
6145 
6146 
6147 

6148 021026 

6149 02102S 

6150 021032 
6151 

6152 021050 

6153 021050 

6154 021052 

6155 021054 
6156 

6157 

6158 

6159 

6160 

6161 

6162 

6163 

6154 

6165 

6166 

6167 

6168 

6169 

6170 

6171 

6172 

6173 

6174 

6175 

6176 

6177 

6178 

6179 

6180 021056 

8181 02106-0 
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;RKDA TO SREGO, SREG1 , $R£G2, $REG3 RESPECTIVELY BEFORE 
ITYPING OUT AN ERROR MESSAGE, 
jCALL: JSR PC,GT4RG 



104401 
000406 



010346 
104402 
000207 



010046 

012700 001172 



SF.0 0112 



GT4RG; MOV 

GT3RG: MOV 

GT2RGS MOV 

MOV 

RTS 



*RKDA,$REG3 

@RKDS,$REG2 
@RKER,SREG1 
SRKCS, SREGO 
PC 



GET RKDA 

GET RKDS 
GET RKER 



.SBTTL TYERM: SPECIAL ERROR MESSAGE ROUTINE 

fTYERM 

?THIS ROUTINE TYPES OUT « EROR AT PC^X 1 

;X IS THE PC WHERE THE EXPLANATION AS TO WHAT HAPPENED IS GIVEN. THIS ROUTINE 

;IS USED ONLY FOR NON-MANUAL MODE OF THE PROGRAM. 

;CALL: JSR TYERM 



TYERM*. 





TYPE 


,65$ 




BR 


64$ 


; ; 65$ : 


.ASCI2 


<15>< 


64$°> 








MOV 


R3 t - 




TYPOC 






RTS 


PC 



<15X12>/ER0R,PC«/ 

(SP) 



; ;TYPE ASCIZ STRING 
; ;GET OVER THE ASCIZ 



.SBTTL BDAO, BDA4S 



BREAK DISK ADDRESS INTO SEC, SUR, CYL, DRIV£ 



BDAO, BDA4 



THIS ROUTINE BREAKS A DISK ADDRESS (BITS 0-15) INTO DRIVE #, 

CYLINDER #, SURFACE, SdCTQR #. THE ROUTINE IS CALLED BY USING EITHER 

BRKDAO OR 8RKDA4, BOTH BEING 'TRAP' INSTRUCTIOS WITH THEIR LOWER BYTES 

ENCODED TO PROVIDE INDEXING TO > 8DA0 ' OR ! 8DA4 ' . BEFORE CALLING 

THE ROUTINE THE DISK ADDRgSS WHICH IS TO BE BROKEN AS ABOVE 

IS DEPOSITED IN $RE610, 

'BRKOAO 1 PUTS THE BRKDA4 PUTS THE 

DRIVE tf INTO SREGO DRIVE # INTO SREG4 

CYLINDER # INTO $REG1 CYLINDER # INTO SREGS 

SURFACE # INTO SREG2 SURFACE # INTO SREG6 

SECTOR ft INTO $REG3 SECTOR # INTO SREG7 

CALLS BRKDAO BRKDA4 



BDAOS MOV 
MOV 



RO,-(SP) 

$$R£G34-2,R0 



;PUSH RO ONTO THE STACK 
;SET UP POINTER 
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SEQ 0113 



6182 
6183 
6184 
6185 
6166 
618? 
6188 
6189 
6190 
6191 
6192 
6193 
6194 
6195 
6196 
6197 
6198 
6199 
6200 
6201 
6202 
6203 
6204 
6205 
6206 
6207 
6208 
6209 
6210 
621 1 
6212 
6213 
6214 
6215 
6216 
6217 
6218 
6219 
6220 
6221 
6222 
6223 
6224 
6225 
6226 
6227 
6228 
6229 
6230 
6231 
6232 
6233 
6234 
6235 
6236 
6237 



021064 000403 

021066 010046 

021070 012700 001202 

021074 032777 020000 

021102 001034 

021104 010146 

021106 010246 

021110 013701 001202 



0211 14 
021120 
021 122 
021126 
021130 
021132 
021134 
021136 
021140 
021 144 
021146 
021150 
021152 
021156 
021160 
021162 
021166 



021200 
021206 
021210 
021214 
021220 
021222 
021224 



042701 
01 0140 
01 3701 
006201 
006201 
006201 
006201 
010102 
042702 
010240 
006201 
01 0102 
042702 
010240 
000301 
042701 
01 0140 



021170 012602 

021172 012601 

021174 012600 

021176 000002 



012737 
000241 
006066 
005237 
001373 
000207 
000000 



BDA4: 


MOV 


RO.-(SP) 




MOV 


#$REG7+2,R0 


BDAR: 


BIT 


#20000, (PSWR 




BNE 


2$ 




MOV 


R1 ,-(SP) 




MOV 


R2,-(SP) 




MOV 


$REG10,R1 




BIC 


#177760, R1 




MOV 


R1 ,-(R0) 




MOV 


$REG10,R1 




ASR 


R1 




ASR 


R1 




ASR 


R1 




ASR 


R1 




MOV 


R1 ,R2 




BIC 


#177776, R2 




MOV 


R2,-(R0; 




ASR 


R1 




MOV 


R1 ,R2 




BIC 


#177400, R2 




MOV 


R2,-(R0) 




SWAB 


R1 




BIC 


#177770, R1 




MOV 


R1 ,-(R0) 




MOV 


(SP)+,R2 




MOV 


(SP)+,R1 


2$: 


MOV 


(SP)+,RO 




RTI 





PUSH RO ONTO THE STACK 
SET UP POINTER 

INHIBIT TYPEOUT? 

YES, BRANCH TO EXIT POINT 

PUSH R1 ON STACK 

PUSH R2 ON STACK 

GET THE ADDRESS WHICH 

HAS TO BE BROKEN 

EXTRACT SECTOR BITS 0-3 

MOVE SECTOR BITS TO SREG3 OR SREG7 

GET THE DSK-ADRES TO BE BROKEN 

SHIFT RIGHT 4 TIMES 



;STORE THIS 

;EXTRACCT THE SURFACE BIT 

;MOVE SURFACE BIT TO SREG3 OR $REG6 

;STORE IT 

;EXTRACT THE CYLINDER BITS 

;MOVE CYLINDER BITS TO SREG1 OR SREG5 

;SWAB HI-LO BYTES 

jEXTRACT THE DRIVE # 

;MQVE DRIVE # TO SREGO OR SREG4 

;RESTORE R2 

;RESTORE R1 

; RESTORE RO FROM THE STACK 

;RETURN FROM INTERRUPT, EXIT THIS 

{ROUTINE 



.SBTTL SHFTRT: SHIFT RIGHT ROUTINE 

SHFTRT 

THIS ROUTINE SHIFTS A WORD TO THE RIGHT 13 TIMES. THE WORD TO BE SHIFTED 

IS PUT ON THE STACK BEFORE ENTERING THIS ROUTINE AND IT IS POPPED UP 

FROM THE STACK AFTER THE SHIFT HAS BEEN DONE. 

CALL: JSR PC, SHFTRT 



177763 021224 



000002 
021224 



SHFTRT: MOV 
CLC 

1$: ROR 
INC 
BNE 
RTS 

2S: 



#-15,2$ 

2(R6) 

2$ 
1S 
PC 



SET UP A COUNT OF 13 

CLEAR THA C BIT 

ROTATE RIGHT THE WORD TO B SHFTD 

SHIFTED 13 TIMES? 

IF NOT LUP BAK & SHIFT 

EXIT FROM THIS SUBROUTINE 



010137 001202 
000403 
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6238 

6239 

6240 

6241 

6242 

6243 

6244 

6245 

6246 

6247 

6248 

6249 

6250 

6251 

6252 

6253 

6254 

6255 

6256 

6257 

6258 

6259 

6260 

6261 

6262 

6263 

6264 

6265 

6266 

6267 

6268 

6269 

6270 

6271 

6272 

6273 

6274 

6275 

6276 

6277 

6278 

6279 

6280 

6281 

6282 

6283 

6284 

6285 

6286 

6287 

6288 

6289 

6290 

6291 

6292 

6293 
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021226 
021232 

021234 
021242 

021250 
021252 
021256 



013737 
032777 
001467 
004737 

104416 



001350 
140000 



001202 
160062 



021260 000207 



262 
266 
270 
274 

276 

302 

304 
312 



013705 
005205 
020577 
001455 

010537 
104415 

017737 
104416 



160030 001202 



.SBTTL 

.SBTTL 



CHKHE: CHECK FOR 'ERR' OR 
CHKHE1 : CHECK FOR 'ERR'OR 



;;CHKHE 

;THIS ROUTINE CHECKS IF 'HE' OR 'ERR' BITS IN RKCS ARE SET. IF ANY OF THE 

;TWO BITS ARE SET, THE CONTENTS OF RKCS, ER, DS, AND DA ARE SAVED AND A 

{RETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE 'JSR' CALL. 

;AT THE TIME OF ENTRY 'DRIVAD' CONTAINS THE DISK ADDRESS WHICH IS TO 

;BE BROKEN DOWN INTO DRIVE #, CYLINDER, SURFACE AND SECTOR #. THIS INFORMATION 

;IS SAVED TO BE USED LATER FOR ERROR REPORTING. IF THE BITS ARE NOT SET 

{RETURN IS MADE TO SKIP THE ERROR MESSAGE. 

{CHKHE1 

{THIS ROUTINE CHECKS IF 'HE' OR 'ERR 1 BITS IN RKCS ARE SET. IF ANY OF THE 

{TWO BITS ARE SET, THE CONTENTS OF RKCS, ER, DS , AND DA ARE SAVED AND A 

{RETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE 'JSR' CALL. 

JAT THE TIME OF ENTRY R1 CONTAINS THE DISK ADDRESS WHICH IS TO BE BROKEN 

{DOWN INTO DRIVE #, CYLINDER, SURFACE AND SECTOR #. THIS INFORMATION IS 

{SAVED TO BE USED LATER FOR ERROR REPORTING. IF THE BITS ARE NOT SET 

{RETURN IS MADE TO SKIP THE ERROR MESSAGE. 



CHKHE1 : 



CHKHE: 
CHEi: 



MOV 

BR 

MOV 
BIT 
BEQ 
JSR 
BRKDA4 

RTS 



R1 .SREG10 
CHE1 

DRIVAD, SREG10 
#140000, ©RKCS 
CRETRN 
PC,GT4RG 



{SAVE THE DISK ADRES 



-.SAVE THE DISK ADRES 

;IS 'HE' OR 'ERR' BIT SET? 

;NO 

;GET RKCS.ER.DS, DA 

;GQ TO 'BDA4' & BREAK CONTENTS 

;$REG10 INTO DR#, CYL, SUR, SEC BITS 

;RETURN TO THE ERROR MESSAGE 



.SBTTL CHKDA: CHECK IF RKDA INCREMENTED CORRECTLY 
CHKDA 

™ILJ!? UTINE CH ECKS IF RKDA INCREMENTED CORRECTLY. IF RKDA INCREMENTED 
CORRECTLY RETURN IS MADE TO SKIP THE ERROR MESSAGE. 

IF RKDA DID NOT INCREMENT CORRECTLY, THE EXPECTED AND RECIEVED VALUES 
OF RKDA ARE SAVED AND A RETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE 
JSR CALL. 



CHKDA: 



MOV 

INC 
CMP 
BEQ 

MOV 
BRKDAO 

MOV 
BRKDA4 



DRIVAD, R5 
R5 

R5,@RKDA 
CRETRN 

R5,$REG10 



PRKDA,$REG10 



021314 000207 



RKDA SHOULD INCREMENT TO THIS 

AFTER DATA TRANSFER IS DONE 

DID RKDA INCREMENT CORRECTLY? 

IF YES, BRANCH 

IF NOT, REPORT ERROR 

GET EXPCTD RKDA 

GO TO 'BDAO' & BREAK CONTENTS OF 

SREG10 INTO DR * ,CYL , SUR , SEC BITS 

GET ACTUAL RKDA 

GO TO *BDA4' & BREAK CONTENTS OF 

SREG10 INTO DR * ,CYL , SUR , SEC BITS 

RETURN TO THE ERROR MESSAGE 
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chkda: check if rkda incremented correctly 



SEQ 0115 



6294 

6295 
6296 
6297 

6298 

6299 

6300 

6301 

6302 

6303 

6304 

6305 

6306 

6307 

6308 

6309 

6310 

6311 

6312 

6313 

6314 

6315 

6316 

6317 

6318 

6319 

6320 

6321 

6322 

6323 

6324 

6325 

6326 

6327 

6328 

6329 

6330 

6331 

6332 

6333 

6334 

6335 

6336 

6337 

6338 

6339 

6340 

63-11 

6342 

6343 

6344 

6345 

6346 

6347 

6348 

6349 



021316 005777 

021322 001442 

021324 017737 

021332 017737 

021340 00020? 



.SBTTL CHKWC: CHECK IF RKWC OVERFLOWED 

•THIS C R0UTINE CHECKS IF RKWC OVERFLOWED :0 0. IF IT DID A RETURN IS MADE 
^TO SKIP THE ERROR MESSAGE. IF NOT,THE CONTENTS OF RKWC AND RKDA ARE SAVED 
| AND A RETURN IS MADE TO THE ERROR M ESSAGE_FOLLOWING JHE 'JSR ! CALL. 
CHKWC: ~"~ """ * 



150004 
160002 



001162 
001164 



021342 005777 157762 

021346 001430 

021350 004737 Q21QQ2 

021354 00Q2O7 



021356 005777 157746 

021362 001422 

021364 013737 001330 

021372 017737 157732 

021400 080207 



021402 022777 000200 

021410 001407 

021412 013737 - 001332 

021420 017737 157706 

02142S 000207 

021430 062716 000002 

021434 000207 



TST 
BEO 


©RKWC 
CRETRN 


;DID WORD COUNT OVERFLOW TO 0? 
;IF YES, BRANCH 
;IF NOT, ERROR 


MOV 
MOV 
RTS 


©RKWC.SREGO 
@RKDA,$REG1 
PC 


;GET RKWC 
;GET RKDA 
; RETURN TO THE ERROR MESSAGE 



;CHKER 



.SBTTL CHKER: CHECK RKER CONTENTS 

-THIS K R0UTINE CHECKS IF ANY BIT IN RKER SET. IF NOT RETURN S3 MADE TO SKIP 
'THE ERROR MESSAGE IF ANY BIT IS SET THE CONTENTS OF RKCS, RK£R RKDS ARE 
•SAVED AND A RETURN IS MADE TO THE ERROR MESSAGE. 



CHKER : 



TST 

BEO 



001162 
001164 



g&RKER ;DID ANY BIT IN RKER SET? 

CRETRN '.NO, BRANCH 

;YES, ERROR 
PC.QT3RQ SGO. SET RKCS, ER, DS 

PC ; RETURN TO THE ERROR MESSAGE 



THIS ROUTINE CHECKS THAT RKER IS CLEAR. IF NOT, THE CONTENTS OF %<*f 
'ARE SAVED AND A RETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE *J$R® 
SCALL. IF RKER IS CLEAR THE ERROR MESSAGE IS SKIPPED ON RET"RN, 

;ANY BIT IN RKER SET? 

?N0 

;GET ADRES OF RKER 

;GET CONTENTS OF RKER 

; RETURN TO THE ERROR MESSAGE 

;?HIS C R0UTINE CHECKS THAT RKCS IS CLEAR. IF NOT, THE CONTENTS OP RKCS ARE 

'SAVED AND A RETURN IS MADE TO THE ERROR MESSAGE. IF RKCS IS CLEAR THE 

•ERROR MESSAGE IS SKIPPED ON RETURN. 

CHKCCLR*. CMP #200,®RKGS ;IS RKCS CLEAR? 

BEO CRETRN ;YES 

MOV RKCS.SREGO '.SAVE ADRES OF RKCS 

MOV @RKCS,$REG1 JSAVE THE CONTENT OF RKCS 

RTS pc ; RETURN TO THE ERROR MESSAGE 





CHKECLR! TST 


OTHER 




BEQ 


CRETRN 


001163 


MOV 


RKER,SREG0 


001164 


MOV 


©RKER,$REG1 




RTS 


PC 



CRETRN; ADD 

RTS 



#2,(SP) 

PC 



;SKIP ERROR MESSAGE ON 
; RETURN 



157674 

157650 



C2147S 062716 000002 
021S02 000207 
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6350 
6351 
6352 
6353 
6354 
6355 
6356 
635? 
6358 
8359 

6360 021436 013777 001350 

6361 021444 005037 001366 

6362 021450 03277? 000100 

6363 021458 001007 

6364 021460 005237 001366 
6355 021464 001371 

6366 021 46S 017737 1 S7634 

6367 021474 000207 
636S 
6369 
6370 
6371 
6372 
6373 
6374 
6375 
S3 7 5 
6377 
6378 
6379 
6380 

6381 

6382 

6363 

6384 

6385 

6386 

6387 

6388 

6339 

6390 

6391 

6392 

6393 

6394 

6395 

6396 

6397 

6398 

6399 021525 

6400 021534 

6401 021536 

6402 021542 

6403 021544 

6404 03.1546 

6405 021550 
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TSTRW5: WAIT FOR R/W/S RDY ROUTINE 

.SBTTL TSTRWSS WAIT FOR R/W/S RDY ROUTINE 

; ISI? W pm.T»NF WAITS FOR R/W/S RDY TO SET. WHEN IT SETS. THE RETURN PC 
IS^NcSeIe^eS^tSS? SATURN (TO THE MAIN PROGRAM) THE ERRO R 

IImmSg TIME IS APPROX. 1040 MS FOR 11/20, APPRQX. 208 MS FOR 11/45 
;CALLS JSR TSTRWS 



SEQ 01 1S 



TSTRWS: MOV 

CLR 

1$: BIT 

BNE 
INC 
BNE 
MOV 
RTS 

2$: ADD 

RTS 



DRIVAD,@RKDA 
TIMER 

#100,@RKDS 
2$ 

TIMER 

1$ 

PRKDS.SREGO 

PC 

#2 f (SP) 

PC 



;ADRES THE DRIVE 

'.INITIALIZE COUNT 

;DID R/W/S ROY SET? 

;YES, BRANCH 

;WAIT FOR R/W/S RDY 

; ERROR IF IT'S NOT SET BY NOW 

;GET RKDS „_ 

;EXIT (TO ERROR FOOLOWING 'JSR TSTR 

•ADJUST RETURN ADRES TO SKIP OVER 
JeRROR (FOLLOWING 'JSR TSTRWS 9 } 
;EXIT 



.SBTTL DRESETS DRIVE RESET ROUTINE 
? S2ff E IftiiTTMir nnvei . netys SESET ON THE DRIVE WHOOSH ADDRESS IS XN 

\cklll JSR PC.DRESET 



021504 005037 001364 

02*510 013777 001350 1S7622 

021518 012777 00001S 15780® 

021524 104414 



032777 000100 157572 

001013 

01274S 17777© 

00 5216 

001376 

005726 

005237 001364 



DRESETI 



CLR 
MOV 
MOV 
CNT.ROY 



COUNT 1 
DRIVAD t *RKOA 

#15,@RKCS 



BIT 
BNE 
MOV 
INC 
BNE 
TST 
INC 



#100,8»RKDS 

2£ 

#-10,-(SP) 

(SP) 

.-2 

(SP) + 

COUNT 1 



; INITIALIZE THE COUNT 
•ADRES THE DRIVE 
;DRIVE RESET, GO 
;THIS IS A CALL FOR ■CN.RDY' 
; ROUTINE WHICH WAITS FDR CNT 
iRDY TO -ET. IF CNTRL RDY DOES 
;NOT SET WITHIN 833 MS/ 11-20 
',(176 MS FOR 11-45 WITH BIPOLAR} 
;AN ERROR IS REPORTED 

•310 R/W/S RDY SET? 

;PUSH COUNT ON SP 
; COUNT IT DOWN 

;POP UP SP 

;IF NOT WAIT 
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SEQ 0117 



6406 
6407 
6408 
6409 
6410 
6411 
6412 
6413 
6414 
6415 
6416 
6417 
6418 
6419 
6420 
6421 
6422 
6423 
6424 
6425 
6426 
6427 
6428 
6429 
6430 
6431 
6432 
6433 
6434 
6435 
6436 
6437 
6438 
6439 
6440 
6441 
6442 
6443 
6444 
6445 
6446 
6447 
6448 
6449 
6450 
6451 
6452 
6453 
6454 
6455 
6456 
6457 
6458 
6459 
6460 
6461 



021554 001364 

021556 004737 020774 

021562 000402 

021564 062716 000002 

021570 000207 



021572 
021600 
021606 
021610 

021614 
021616 
021620 
021626 
021630 
021634 

021652 

021652 
021654 
021660 
021662 



013777 
032777 
001403 
004737 

000401 
000002 
032777 
001373 
104401 
000406 



01 1646 
062716 
104402 
000755 



021676 
021702 



001350 
001000 



157540 
157520 



020000 157312 



BNE 

JSR 

BR 

ADD 

RTS 



1$ 

PC.GT4R0 

2$+4 

#2,@R6 

PC 



;WAITED LONG? 



021664 017637 000000 

021672 062716 000002 



005337 
001375 



.SBTTL TSTSIN: CHECK 'SIN' ROUTINE 

TSTSIN 

THIS ROUTINE CHECKS IF 'SIN' IS SET, IF IT IS SET A 

DRIVE RESET IS DONE TO CLEAR 'SIN' AND INITIALIZE POSITIONER. 

CALL: TST.SIN 

IF ON DOING DRIVE RESET R/W/S ROY DOES NOT SET A MESSAGE 

ERROR PC=XXXXXX IS GIVEN. 
XXXXXX=PC IN THE MAIN PROGRAM WHERE 'TST.SIN' CALL IS LOCATED. 



TSTSIN: MOV 
BIT 
BEQ 
JSR 
BR 
RTI 
BIT 
BNE 
TYPE 
BR 



1$: 
2$: 



;;65$: 

64$: 



DRIVAD,@RKDA 

#1000,@RKDS 

1$ 

PC, DRESET 

2$ 

#SW13,@SWR 
1$ 

,65$ 

64$ 

.ASCII /ERROR PC= / 



;ADRES THE DRIVE 
;IS SIN SET? 

;G0 DO DRIVE RESET, SIN 
; REPORT ERROR 

; INHIBIT TYPEOUT? 
;IF YES, SKIP TYPEOUT 
; ;TYPE ASCIZ STRING 
; ;GET OVER THE ASCIZ 



MOV 
ADD 
TYPOC 
BR 



(SP).-(SP) 
0-2, (SP) 



;GET THE PC WHERE 
;G0 TYPE OUT PC 



TST.SIN' IS LOCATED 



.SBTTL DELAY: TIME DELAY ROUTINE 

JDELAY 

;THIS ROUTINE PROVIDES A VARIABLE TIME DELAY. THE CALL FOR THIS 

;ROUTINE IS AN ENCODED 'TRAP' INSTRUCTION. 

;CALL: DELAY ,N N IS ANY OCTAL NO. FROM 1 TO 177777 

;THE DELAY PROVIDED IS 7.5N US (CONVERT N TO DECIMAL) FOR 11/20 

;1 .5N US FOR 11/45 

;IF THE USER WANTS TO CHANGE THE DELAY TIME (EXMP: SHORTER DELAY TO 

;GET A TIGHTER SCOPE LOOP) THE VARIABLE 'N' FOLLOWING 'DELAY' SHOULD 

;BE CHANGED TO SUIT THE INDIVIDUAL NEED. 



001366 DELA.Y: MOV 
ADD 



DEC 
BNE 



@(SP) .TIMER 
#2,(SP) 



TIMER 
1$ 



GET 'AMOUNT' (N) FOR WHICH 
DELAY IS TO BE PROVIDED 
ADJUST STACK POINTER TO SKIP OVER 
COUNT DOWN TO 
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6462 


021704 


000002 




6463 








6464 








6465 








6466 








6467 








6468 








6469 








6470 








6471 








6472 








6473 








6474 








6475 








6476 








6477 








6478 








6479 








6480 








6481 








6482 








6483 








6484 


021706 


017637 


000000 


6485 


021714 


062716 


000002 


6436 








6487 


021720 


013746 


001400 


6488 


021724 


012746 


021732 


6489 


021730 


000002 




6490 


021732 


005337 


001366 


6491 


021736 


001375 




6492 








6493 








6494 


021740 


000002 




6495 








6496 








6497 








6498 








6499 








6500 


021742 


005000 




6501 


021744 


005001 




6502 


021746 


005200 




6503 


021750 


001376 




6504 


021752 


105201 




6505 


021754 


001374 




6506 


021756 


000207 




6507 








6508 








6509 








6510 








6511 








6512 








6513 








6514 








6515 








6516 








6517 
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DELAY: TIME DELAY ROUTINE 



SEQ 0118 



.SBTTL WAT. INT: 



; RETURN TO MAIN PROGRAM 



WAIT FOR INTERRUPT ROUTINE 



:WAT. INT 

In™ S 0UTINE PROVIDES A VARIABLE TIME WAIT LOOP DURING WHICH AN INTERRUPT 
FROM RK11 CAN OCCUR. THE CALL IS AN ENCODED 'TRAP" INSTRUCTION lN ^ RRUPJ 



CALL: 



WAT. INT ,N 



N IS ANY OCTAL NO.* FROM 1 TO 177777 



^ILi 00 ? TIME " APPR0X ' 7 " 5N U S (CONVERT N TO DECIMAL) FOR 11/20 
APPROX. 1.5N US FOR 11/45 «■/*« 

UPON ENTERING THE ROUTINE THE CPU PRIORITY IS DROPPED SO THAT 
RK11 CAN INTERRUPT. NOTE THAT WHEN RK1 1 INTERRUPTS THIS ROUTINE 

TO RKn E ?N?ER™PT HANDLER.™' "^ ™ IS ^^ IS D0NE AF ™ GETTING 

RY ^Lfv Y r2^r?^ T x E c WAIT L0 ° P TIME HAS T0 BE RANGED IT CAN BE DONE 
BY SIMPLY CHANGING THE VARIABLE 'N« FOLLOWING THE 'WAT. INT'. 



001366 WATINT: MOV 



MOV 
ADD 


*(SP), TIMER 
#2,(SP) 


MOV 
MOV 
RTI 
DEC 
BNE 


RKPRI.-(SP) 
#1$ f -(SP) 

TIMER 
1$ 



WAT. INT" 

;GET 'AMOUNT' (N) FOR WHICH 

JWAITING IS TO BE DONE 

;ADJUST STACK POINTER FOR CORRECT RETURN 

;DROP CPU PRIORITY SO THAT RK11 CAN 

; INTERRUPT 

;WAIT FOR RK11 TO INTERRUPT 

IF INTERRUPT HAS NOT OCCURED BY NOW 

RETURN AND REPORT ERROR 

EXIT 



;WATIME 




WATIME: clr 


RO 


CLR 


R1 


1$: INC 


RO 


BNE 


1$ 


INCB 


R1 


BNE 


1$ 


RTS 


PC 


.SBTTL 


CHKCRDY: 



CHECK CONTROL READY 
;CH.CRDY 

DOES NDT^FT wtxw^T.I^ C0NTROL READY T0 SET ' ^ ™E CONTROL READY BIT 
AND PKnl III ca32o N A CERTAIN TIME ' THEN THE INTENTS OF RKCS , RKER, RKDS 
'JSR' CALL FOR THIS RO' t N "^ MADE T0 ™ E ERR ° R MESSAGE "LOWING THE 

MfiSS^S^p*™ «JV HEN ™ E RETURN ADDRESS 1$ ADJUSTED TO SKIP THE 
ERROR MESSAGE ON RETURN. 



021760 
021764 
021770 
021772 
021776 
022000 
022004 

022006 
022012 
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6518 

6519 
6520 
6521 
6522 
6523 
6524 
6525 
6526 
6527 
6528 
6529 
6530 
6531 
6532 
6533 
6534 
6535 
6536 
6537 
6538 
6539 
6540 
6541 
6542 
6543 
6544 
6545 
6546 
6547 
6548 
6549 
6550 
6551 
6552 
6553 
6554 
6555 
6558 
6557 
6558 
6559 
6560 
6561 
6562 
6553 
6564 
6565 
6566 
6567 
6568 
6569 
6570 
S571 
6572 
6S73 
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CHKCRDY: CHECK CONTROL READY 



005037 
105777 
100406 
005237 
001372 
004737 
000002 

062716 
000002 



001366 
157342 



001366 
020774 



022014 
022022 
022030 
022032 
02203S 
022042 
022044 
022050 
022052 
022060 

02:1JG4 
0220S8 
022072 



01 2777 
012737 
000402 
005037 
105777 
100435 
005237 
001372 
032777 
001026 
104401 
001245 
104401 
000403 



000001 
177500 



001170 
157270 



157310 
001170 



CALL: CHKCRDY 
ERROR 



;R£TURN HERE IF ERROR 
;RETURN HERE IF NO ERROR 



ch.crdy: clr timer 



TSTB 

BMI 

INC 

BNE 

JSR 

RTI 

ADD 
RTI 



@>RKCS 

2$ 

TIMER 

1$ 

PCGT4RG 



#2 ? (SP) 



;CNTRL RDY SET? 
;YES 



:NO, WAIT 
;SAVE RKCS, 



ER, DS, DA 



.SBTTL CON-RESET; 



".ADJUST RETURN ADDRESS TO 
;SKIP ERROR MESSAGE ON RETU^M 



CONTROL REST ROUTINE 



CON. RESET 

THIS ROUTINE ISSUES A CONTROL RESET AND WAITS FOR 
THE »CNTRL RDY 1 FLAG TO SET. WHEN THE FLAG SETS 
AN EXIT IS MADE OUT OF THE ROUTINE. IF 'CNTRL-RDY 8 
DOES NOT SET WITHIN A CERTAIN TIME AN ERROR MESSAGE 

CNT RDY DIDN'T SET 

PC^XXXXXX RKCS^YYYYYY 
IS GIVEN. NOTE THAT XXXXXX IS THE PC WHERE 'CNT. RESET' 
IS CALLED. 

CALLI CNT. RESET 



OR 'CNT.RDY' 



.SBTTL CNT. RDY! 



WAIT FOR CONTROL READY ROUTINE 



CN.RDY 

THIS ROUTINE WAITS FOR THE CONTROL READY BIT TO SET AND WHEN XT 

SETS EXITS OUT. IF WITHIN A CERTAIN TIME CNTRL RDY DOES 

NOT SET AN ERROR IS REPORTED. WAITING TIME IS 883 MS FOR 11/20 

175 MS FOR 11/45 WITH BIPOLAR MEMORY, 

CALL: CNT. RDY 

ISSUE A CONTROL RESET 

SET UP COUNT 

;SKIP OVER CN.RDY 



CN.RSTS 



CN.RDY: 
IS: 



020000 157060 a$: 



MOV 

MOV 

BR 

CLR 

TSTB 

BMI 

INC 

BNE 

BIT 

BNE 

TYPE 

MSG3 

TYPE 

BR 

.ASCII 



#1 ,§>RKGS 

#-300,$REG3 

CN.RDY+4 

SREG3 

@RKCS 

3$ 

$REG3 

1$ 

#SW13,@SWR 

3$ 



,65S 
<15X12>/PC*/ 



;DID CNT:,L~RDY SET? 

;YES, EXIT 

;WAITED LONG? 

; IF NOT, GO BAK & WAST 

; INHIBIT TYPEOUT? 

;IF YES, SKIP TYPEOUT 



; ;TYPE ASCIZ STRING 
; SGET OVER THE ASCIZ 
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AIT FOR CONTROL READY ROUTINE 



SSQ 01 20 



6574 

6575 

65' r 6 

6577 

6578 

6579 

6500 

6531 

6582 

6583 

6584 

6585 

6536 

6587 

6589 

6589 

6590 

6591 

6592 

6593 

6594 

6595 

6596 

6597 

6598 

6599 

6600 

6601 

6602 

6603 

6604 

6605 

6606 

6607 

6608 

6609 

6610 

6611 

6612 

6613 

6614 

6615 

6616 

6617 

6618 

6619 

6620 

6621 

6622 

6623 

6624 

6625 

6626 

6627 

6628 

6629 



022102 

022102 01164S 

022104 1S271S 000002 

022110 10 4402 



022112 104401 
022116 000404 



022120 



022130 

022130 017746 157176 

022134 104402 

022136 000002 



022140 

022140 104407 

022142 032777 040000 

022150 001111 



022>52 

022154 
0221 SO 

0221S6 
022172 
022'- 76 



0222 ( 
0222C 
0222' 
0222' 
0222' 



000416 

013746 
012737 
005737 
012637 
00 0463 
022626 
01 263? 
000423 

032777 
001404 
12773? 
001462 
105737 



000004 
022200 
177060 

000004 



mov (SP).-(r.*) 

SUB #2,(SP) 
TYPOC 





TYPE 


,67$ 




BR 


66S 


; ; 67$ s 


.ASCIZ 


/ RKCS*=/ 


66$: 








MOV 


@RKCS S ~(SP) 




TYPOC 





GO TYPE PC IN THE MAIN PROGRAM, 
WHERE ERROR OCCURRED 
;TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 



j GET RKCS 

;G0 TYPE IT 

; RETURN FROM THIS 
;ROUTINE TO THE MAIN 
; PROGRAM 



?THIS PART OF THE PROGRAM CONTAINS THE COMMON ROUTINES CALLED 
?FROM THE SYSMAC.SML PACKAGE 

.SBTTL SCOPE HANDLER ROUTINE 

.„,****»*»**************•***»*******•»*************************** 

*THI<? ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

*InD \SaD ThI TEST NUMBER(STSTNM) INTO -HE DISPLAY REG. { DISPLAY<7:0» 

*AND LOAD THE ERROR FLAG (SERFLG) INTO DXSPLAY<1 5 s . Q8> 

*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

*SW14«1 LOOP ON TEST 

♦SW11-1 INHIBIT ITERATIONS 

*SW0S*1 LOOP ON ERROR 

*SW08®1 LOOP ON TEST IN SWR<7:0> 

*CALL 

* SCOPE ;;SCQPE«IOT 



SSCQPE: 

CKSWR 
15: BIT 

BNE 
;##0##START Of 
SXTSTR: BR 

MOV 
MOV 
TST 
MOV 
SR 

mi cmp 

MOV 
BR 



#BIT14 f #SWR 
$OV£R 

CODE FOR THE : 
5$ 

e#ERRVEC,-(S 
#5S,##£RRVEC 
©#177 060 
(SP)+,$#ERftV 
SSVLAD 
(SP)+, ($P) + 
(SP)+,ff#ERRV 
7$ 



6S:j*0###END GF CODE FOR THE XOR 



o©040§ is6?ar 

156714 001102 



BIT 

8E0 

CMPB 

BEO 

TSTB 



#BITO8,0SWR 

2$ 
»SWR,$TSTNM 

SOVER 
SERFLG 



•TEST FOR CHANGE IN SOFT-SWR 

;LOOP ON PRESENT TEST? 

;Y£S IF SW14=1 
"ESTER***** 

•tF RUNNING ON THE *X0?? ri TESTED CHANba 

•THIS INSTRUCTION TO A -NOP' (NOP-240) 

;SAVE THE CONTENTS OF THE ERROR VECTOR 

;S£T FOR TIMEOUT 

;TIME OUT ON XOR? 
.♦.RESTORE THE ERROR VECTOR 

;G0 TO THE NEXT TEST 
;;Cl£AR THE STACK AFTER A TIME OUT 
;; RESTORE THE ERROR VECTOR 
;;100P ON THE PRESENT TEST 
'tEST£R##### 
; ? LOOP ON SPEC. TEST? 
; ; BR IF NO 

;;0N THE RIGHT TEST? SWR<?S0> 
, , gp 1 p YES 
••HAS AN ERROR OCCURRED? 
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SEO 0121 



6630 
6631 
6632 
6633 
6634 
6635 
6636 
6637 
6633 
6639 
6640 
6641 
6642 
6643 
6644 
6645 
6646 
6647 
6648 
6649 
6650 
6651 
6652 
6653 
6654 
6655 
6656 
6657 
6658 
6659 
6660 
6661 
6662 
6663 
6664 
6665 
6666 
6667 
6568 
6669 
6670 
6671 
6672 
6673 
6674 
6675 
6676 
6677 
6678 
6679 
6680 
6681 
6682 
6683 
6684 
6685 



022234 
022236 
022244 
022246 
022254 
022256 
022264 
022266 
022272 
022276 
022300 
022306 
022310 
022314 
022316 
022322 
022330 
022332 
022340 
022346 
022352 
022356 
022362 
022366 
022374 
022402 
022406 
022410 



001421 
123737 
101015 
032777 
001404 
013737 
000443 
105037 
005037 
000415 
032777 
00101 1 
005737 
001406 
005237 
023737 
002021 
012737 
013737 
105237 
01 1637 
01 1637 
005037 
112737 
013777 
013716 
000002 
000050 



022412 
022414 
022420 
022422 
022430 

022434 
022442 
022444 
022452 

022454 
022460 
022466 



001000 
001110 



001103 
001206 



001 103 
156664 
001106 



000001 
022410 
001102 
001106 
001110 
001210 
000001 
001102 
001106 



001104 
001206 



001115 

156540 



104407 
105237 
001775 
013777 
005237 

032777 
001404 
023727 
101053 

01 1637 
162737 
117737 



7$: 



BEO 

CMPB 

BHI 

BIT 

BEQ 

MOV 

BR 



4$: 



004000 156632 35 



001 104 
001206 



CLRB 

CLR 

BR 

BIT 

BNE 

TST 

BEO 

INC 

CMP 

BGE 

MOV 

MOV 

SSVLAD: INCB 
MOV 
MOV 
CLR 
MOVB 

SOVER: MOV 
MOV 
RTI 

Smxcnt; so 



1$: 



3S 

SERMAX, SERFLG 

3$ 

#BIT09,@SWR 

45 

$LPERR,$LPADR 

SOVER 

SERFLG 

STIMES 

1$ 

#BIT11 ,<PSWR 

1$ 

SPASS 

1$ 

SICNT 

STIMES, SICNT 

SOVER 

#1 , SICNT 

SMXCNT, STIMES 

STSTNM 

(SP).SLPADR 

(SP).SLPERR 

SESCAPE 

#1 .SERMAX 

STSTNM, ©DISPLAY 

$LPADR,(SP) 



BR IF NO 

MAX. ERRORS FOR THIS TEST OCCURRED? 

BR IF NO 

LOOP ON ERROR? 

BR IF NO 

SET LG^P ADDRESS TO LAST SCOPE 

ZERO THE ERROR FLAG 

CLEAR THE NUMBER OF ITERATIONS TO MAKE 
ESCAPE 70 THE NEXT TEST 
INHIBIT ITERATIONS? 
BR IF YES 

IF FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
INCREMENT ITERATION COUNT 
CHECK THE NUMBER OF ITERATIONS MADE 
BR IF MORE ITERATION REQUIRED 
REINITIALIZE THE ITERATION COUNTER 
SET NUMBER OF ITERATIONS TO DO 
COUNT TEST NUMBERS 
SAVE SCOPE LOOP ADDRESS 
SAVE ERROR LOOP ADDRESS 
CLEAR THE ESCAPE FROM ERROR ADDRESS 
ONLY ALLOW 0NE(1) ERROR ON NEXT TEST 
DISPLAY TEST NUMBER 
FUDGE RETURN ADDRESS 
FIXES PS 
MAX. NUMBER OF ITERATIONS 



****!)«*********** ****** 



.SBTTL ERROR HANDLER ROUTINE 



*SW15=1 
*SW13=1 
*SW10=1 
*SW09=1 

*SW12=1 
SW06 = 



*G0 TO SERRTYP ON ERROR 



HALT ON ERROR 

INHIBIT ERROR TYPEOUTS 

TESTING ON SIMULATOR 

LOOP ON ERROR 

CYCLE ON ERROR TO PREVIOUS 'SCOPE' 

DROP DRIVE AFTER MAXIMUM (ALLOWABLE) ERRORS ON THE DRIVE 



001 102 

001 1 12 



000100 156476 
001112 000005 



SERROR: CKSWR 
7$: INCB 
BEO 
MOV 
1$: INC 

BIT 
BEO 
CMP 
BHI 



001116 

000002 001116 

156424 001114 



MOV 

SUB 
MOVB 



SERFLG 

7$ 

STSTNM, ©DISPLAY -.DISPLAY 

SERTTL 

#BIT6,@SWR 
6$ 

SERTTL, #5 
8$ 

(SP),$ERRPC 

#2,$ERRPC 
@$ERRPC S $ITEMB 



CHECK FOR SOFTWARE SWITCH REGISTER REQUEST 

SET THE ERROR FLAG 

DON'T LET THE FLAG GO TO ZERO 

TEST NUMBER AND ERROR FLAG 

COUNT THE NUMBER OF ERRORS 

DESELECT DRIVE SW SET? 

NO 

MORE THAN 5 ERRORS ON THIS DRIVE? 

YES, DESELCT THE DRIVE 

GET ADDRESS OF ERROR INSTRUCTION 

STRIP AND SAVE THE ERROR ITEM CODE 
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SEQ 0122 



6686 
6687 
6688 
6689 
6690 
6691 
6692 
6693 
6694 
6695 
6696 
6697 
6698 
6699 
6700 
6701 
6702 
6703 
6704 
6705 
6706 
6707 
6708 
6709 
6710 
6711 
6712 
6713 
6714 
6715 
6716 
6717 
6718 
6719 
6720 
6721 
6722 
6723 
6724 
6725 
6726 
6727 
6728 
6729 
6730 
6731 
6732 
6733 
6734 
6735 
6736 
6737 
6738 
6739 
6740 
6741 



022474 
022502 
022504 
022510 
022514 
022522 
022524 
022530 
022532 
022534 
022536 
022544 
022546 
022552 
022560 
022562 
022566 
022572 
022574 
022600 



032777 
001004 
004737 
104401 
023737 
001403 
005777 
100002 
000000 
104407 
032777 
001402 
01 3716 
032777 
001402 
01 3716 
005737 
001402 
013716 
000002 



020000 156436 



022734 

001213 
000042 



001110 
001210 



022606 
022610 
022614 
022620 
022622 
022626 
022632 
022636 
022642 
022646 
022652 
022656 
022664 
022670 
022674 
022700 
022704 
022710 
022714 
022716 
022722 
022726 
022730 



001407 
104401 
005037 
022626 
000137 
013746 
162716 
013746 
004737 
042716 
062716 
042776 
062716 
042736 
012736 
104401 
013746 
004737 
104402 
104401 
005337 
022626 
000137 



000046 2$: 



010000 156374 3$ 



001106 
001000 



022602 005737 001434 



001303 
001412 

020652 
001354 
000002 
001350 
021200 
000001 
001414 
100000 
000002 
100000 
010000 
001272 
001350 
021200 

001315 
001412 





BIT 


#SW13,@SWR 




BNE 


2$ 




JSR 


PC,@#$ERRTYP 




TYPE 


,$CRLF 


2S: 


CMP 


@#42,@#46 




BEQ 


. + 10 




TST 


@SWR. 




BPL 


3$ 




HALT 






CKSWR 




3$: 


BIT 


#SW12,@SWR 




BEQ 


.+6 




MOV 


SLPADR, (SP) 




BIT 


#SW09,@SWR 




BEQ 


4$ 




MOV 


SLPERR.(SP) 


4$: 


TST 


SESCAPE 




BEQ 


5$ 




MOV 


SESCAPE, (SP) 


5$: 


RTI 




8$: 


TST 


T56FLG 




BEQ 


10S 




TYPE 


,MSG5 




CLR 


DRIVS 




CMP 


(SP)+ f (SP)+ 




JMP 


SEOP 


10$: 


MOV 


DRVPTR.-(SP) 




SUB 


#2, (SP) 




MOV 


DRIVAD,~(SP) 




JSR 


PC.SHFTRT 




BIC 


#1 ,(R6) 




ADD 


#DRIVO,(SP) 




BIC 


#BIT15,@(R6) 




ADD 


#2,(R6) 




BIC 


#BIT15,@(SP)+ 




MOV 


#BIT12,@(SP)+ 




TYPE 


,MSG4 




MOV 


DRIVAD.-(RS) 




JSR 


PC.SHFTRT 




TYPOC 






TYPE 


,MSG6 




DEC 


DRIVS 


9$: 


CMP 


(SP)+ t (SP)+ 




JMP 


BTEOP 



;SKIP TYPEOUT IF SET 

;SKIP TYPEOUTS 

;G0 TO USER ERROR ROUTINE 

;ARE WE IN ACT11 AUTO MODE? 

;YES, HALT ON ERROR 

;HALT ON ERROR? 

;SKIP IF CONTINUE 

;HALT ON ERROR! 

; CHECK FOR SOFTWARE SWITCH REGIATER REQUEST 

;SW 12 SET? 

;N0. BRANCH 

;ADJUST RETURN ADRES FOR SW12 

;LOOP ON ERROR SWITCH SET? 

;BR IF NO 

; FUDGE RETURN FOR LOOPING 

;CHECK FOR AN ESCAPE ADDRESS 

;BR IF NONE 

; FUDGE RETURN ADDRESS FOR ESCAPE 

; RETURN 

;IF EROR WAS IN LAST TEST (POLL) 
;DROP ALL THE DRIVES 



DROP THE DRIVE FROM THE 

SELECTION LIST 

DRIVE ADDR TO STACK 

RIGHT JUSTIFY 

MAKE EVEN 

POINTS TO TABLE FOR EVEN DRIVE 

TEST REMAINING DRIVE AS RK05E 

POINT TO ODD 

TEST AS RK-05E 

INDICATE THIS DRIVE DROPPED 

PUSH DRIVE # ON STACK 
SHIFT IF BEFORE TYPING 
TYPE OUT DRIVE # 

DECREMENT # OF DRIVES PRESNT 

RESTORE STACK 

GO BACK TO THE END OF PROGRM 

LINKAGE. 



.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 



*THIS ROUTINE USES THE "ITEM CONTROL BYTE" (SITEMB) TO DETERMINE WHICH 
eERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE "ERROR TABLE® (SERRTB) , 
*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
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ERROR MESSAGE TYPEOUT ROUTINE 



SEO 0123 



6742 

6743 

6744 

6745 

6746 

6747 

6748 

6749 

6750 

6751 

6752 

6753 

6754 

6755 

6756 

6757 

6758 

6759 

6760 

6761 

6762 

6763 

6764 

676S 

6766 

6767 

6763 

6769 

6770 

6771 

6772 

6773 

6774 

6775 

6776 

6777 

6778 

6779 

6780 

6781 

6782 

6783 

6784 

6785 

6736 

6787 

6788 

6789 

6790 

6791 

6792 

6793 

6794 

6795 

6796 

6797 



022734 
022740 
022742 
022744 
022750 



104401 
01 0046 
005000 
153700 
001004 



022752 013746 001116 



0227S6 
022760 
022762 

922764 
022766 
022770 
022772 
022776 
023002 
023004 
023006 
023010 
023014 
023020 
023022 
023024 
023026 
023032 
023034 
023036 
023040 
023044 
023046 
023046 
023050 
023052 
023054 
023056 
023062 
023064 



104402 
000426 
005300 
006300 
006300 
00630© 
062700 
012037 
001404 
104401 
000000 
104401 
012037 
001404 
104401 
000000 
104401 
01 1000 
001004 
012600 
104401 
000207 

01 3046 
104402 
005710 
001770 
104401 
000771 
020040 
023070 



001442 
023006 



001213 
023024 



; "CARRIAGE RETURN" & "LINE PEED* 

;SAVE RO 

;PICKUP THE ITEM INDEX 

J IF ITEM NUMBER IS ZERO, JUST 

{TYPE THE PC OF THE ERROR 

;SAVE SERRPC FOR TYPEOUT 

; ERROR ADDRESS 

;GO TYPE— OCTAL ASCIKALL DIGITS) 

{GET OUT 

{ADJUST THE INDEX SO THAT IT WILL 

; WORK FOR THE ERROR TABLE 



{FORM TABLE POINTER 

; PICKUP "ERROR MESSAGE" POINTER 

;SKIP TYPEOUT IF NO POINTER 

;TYPE THE "ERROR MESSAGE" 

; "ERROR MESSAGE" POINTER GOES HERE 

; "CARRIAGE RETURN" & "LINE FEED" 

; PICKUP "DATA HEADER" POINTER 

;SKIP TYPEOUT IF 

;TYPE THE "DATA HEADER" 

; "DATA HEADER" POINTER GOES HERE 

{"CARRIAGE RETURN" & "LINE FEED 8 

{PICKUP "DATA TABLE" POINTER 

;GO TYPE THE DATA 

{RESTORE RO 

j "CARRIAGE RETURN" & "LINE FEED 8 

; RETURN 

{SAVE @(R0)+ FOR TYPEOUT 

;GO TYPE— OCTAL ASCIKALL DIGITS) 

;IS THERE ANOTHER NUMBER? 

;BR IF NO 

;TYPE TW0(2) SPACES 

; LOOP 

;TWO(2) SPACES 



^ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A BYTE. 
*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
*N0TE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
* N OTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
*NOTE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 





TYPE 


,$CRLF 




MOV 


R0,-(SP % 




CLR 


RO 




BISB 


f»#$ITEMB,R0 




BNE 


1$ 




MOV 


SERRPC, -(SP) 




TYPOC 






BR 


6$ 


1$: 


DEC 


RO 




ASL 


RO 




ASL 


RO 




ASL 


RO 




ADD 


#$ERRTB,R0 




MOV 


(R0)+,2$ 




BEQ 


3$ 




TYPE 




2$; 


.WORD 







TYPE 


,SCRLF 


3$: 


MOV 


(R0)+,4S 




BEO 


5S 




TYPE 




4$; 


,WORD 







TYPE 


,$CRLF 


5$: 


MOV 


(R0),R0 




BNE 


7$ 


as: 


MOV 


(SP)+,RO 




TYPE 


,$CRLF 




RTS 


PC 


7$: 








MOV 


!P(RQ)*,~{$P) 




TYPOC 






TST 


(RO) 




BEQ 


6$ 




TYPE 


,8$ 




BR 


7$ 


8$; 


.ASCIZ 
.EVEN 


/ / 


•SBTTL 


TYPE ROUTINE 



'CALL: 

►1) USING A TRAP INSTRUCTION 

» TYPE ,MESADR 

>OR 

* TYPE 

* MESADR 



{{MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



-11-CZRKKF, RK11 BASIC LOGIC TEST 2 


MACY11 


30A(10S2) 21-FEB-78 


RKKF. 


P11 21-FEB-78 


08:51 


TYPE ROUTINE 




6798 














6799 


023070 


105737 


001 157 


$TYPE: 


TSTB 


STPFLG 


6800 


023074 


100002 






BPL 


1$ 


6801 


023076 


000000 






HALT 




6802 


023100 


000407 






BR 


3$ 


6803 


023102 


01 0046 




1$: 


MOV 


RO.-(SP) 


6804 


023104 


017600 


000002 




MOV 


@2(SP) ,R0 


6805 


0231 10 


11 2046 




2$: 


MOVB 


(RO)+,-(SP) 


6806 


0231 12 


001005 






BNE 


4$ 


6807 


0231 14 


005726 






TST 


(SP) + 


6808 


023116 


012600 




60$: 


MOV 


(SP)+,R0 


6809 


023120 


062716 


000002 


3$: 


ADD 


#2,(SP) 


6810 


023124 


000002 






RTI 




6811 


023126 


122716 


000011 


4$: 


CMPB 


#HT,(SP) 


6812 


023132 


001430 






BEQ 


8$ 


6813 


023134 


122716 


000200 




CMPB 


0CRIF,(SP) 


6814 


023140 


001006 






BNE 


5$ 


6815 


023142 


005726 






TST 


(SP) + 


6816 


023144 


104401 






TYPE 




6817 


023146 


001213 






SCRLF 




6818 


023150 


105037 


023304 




CLRB 


SCHARCNT 


6819 


023154 


000755 






BR 


2$ 


6820 


023156 


004737 


023240 


5$: 


JSR 


PC.STYPEC 


6821 


023162 


123726 


001 156 


6$: 


CMPB 


SFILLC, (SP)H 


6822 


023166 


001350 






BNE 


2$ 


6823 


023170 


013746 


001 154 




MOV 


SNULL, -(SP) 


6824 














6825 


023174 


105366 


000001 


7$: 


DECB 


1(SP) 


6826 


023200 


002770 






BLT 


6$ 


6827 


023202 


004737 


023240 




JSR 


PC, STYPEC 


6828 


023206 


105337 


023304 




DECB 


SCHARCNT 


6829 


023212 


000770 






BR 


7$ 


6830 














6831 








{HORIZONTAL TAB 


PROCESSOR 


6832 














6833 


023214 


112716 


000040 


8$: 


MOVB 


#• ,(SP) 


6834 


023220 


004737 


023240 


9$: 


JSR 


PC, STYPEC 


6835 


023224 


132737 


000007 023304 




BITB 


#7, SCHARCNT 


6836 


023232 


001372 






BNE 


9S 


6837 


023234 


005726 






TST 


(SP)-*- 


6838 


023236 


000724 






BR 


2$ 


6839 


023240 


105777 


155704 


STYPEC 


TSTB 


5>$TPS 


6840 


023244 


100375 






BPL 


STYPEC 


6841 


023246 


116677 


000002 155676 




MOVB 


2(SP) ,@$TPB 


6842 


023254 


122766 


000015 000002 




CMPB 


#CR,2(SP) 


6843 


023262 


001003 






BNE 


1$ 


6844 


023264 


105037 


023304 




CLRB 


SCHARCNT 


6845 


023270 


000406 






BR 


STYPEX 


6846 


023272 


122766 


000012 000002 


1$: 


CMPB 


#LF,2(SP) 


6847 


023300 


001402 






BEQ 


STYPEX 


6848 


023302 


105227 






INCB 


(PC) + 


6849 


023304 


000000 




SCHARCNT: .WORD 





6850 


023306 


000207 




STYPu.X 


: RTS 


PC 


6851 














6852 














6853 








.SBTTL 


CONVERT 


BINARY TO D 
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;;IS THERE A TERMINAL? 

; {BR IF YES 

{{HALT HERE IF NO TERMINAL 

;; LEAVE 

; ;SAVE R- 

;;GET ADDRESS OF ASCIZ STRING 

;;PUSH CHARACTER TO BE TYPED ONTO STACK 

{{BR IF IT ISN'T THE TERMINATOR 

;;IF TERMXNATOR POP IT OFF THE STACK 

; {RESTORE RO 

; {ADJUST RETURN PC 

; {RETURN 

; {BRANCH IF <HT> 

;; BRANCH IF NOT <CRLF> 

;;POP <CRXLF> EQUIV 
; {TYPE A CR AND LF 

{{CLEAR CHARACTER COUNT 

; {GET NEXT CHARACTER 

;;G0 TYPE THIS CHARACTER 

;;IS IT TIME FOR FILLER CHARS.? 

; ;IF NO GO GET NEXT CHAR. 

;;GET u OF FILLER CHARS. NEEDED 

; {AND THE NULL CHAR. 

;;DOES A NULL NEED TO BE TYPED? 

; {BR IF NO— GO POP THE NULL OFF OF STACK 

; ;GO TYPE A NULL 

;;D0 NOT COUNT AS A COUNT 

{{LOOP 



{REPLACE TAB WITH SPACE 

{TYPE A SPACE 

{BRANCH IF NOT AT 

{TAB STOP 

{POP SPACE OFF STACK 

{GET NEXT CHARACTER 

{WAIT UNTIL PRINTER IS READY 

{LOAD CHAR TO BE TYPED INTO DATA REG. 

;IS CHARACTER A CARRIAGE RETURN? 

{BRANCH IF NO 

{YES— CLEAR CHARACTER COUNT 

{EXIT 

;IS CHARACTER A LINE FEED? 

{BRANCH IF YES 

{COUNT THE CHARACTER 

{CHARACTER COUNT STORAGE 



SEO 0124 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 



SEQ 01 2S 



6854 
6855 
6856 
6857 
6858 
6859 
6860 
6861 
6862 
6863 
6864 
6865 
6866 
6867 
6868 
6869 
6870 
6871 
6872 
6873 
6874 
6875 
6876 
6877 
6878 
6879 
6880 
6881 
6882 
6883 
6384 
6885 
6886 
6887 
6388 
6889 
6890 
6891 
6892 
6893 
6894 
6895 
6896 
6897 
6898 
6899 
6900 
6901 
6902 
6903 
6904 
6905 
6906 
6907 
6908 
6909 



023310 
023310 
023312 
023314 
023316 
023320 
023322 
023326 
023332 
023334 
023336 
023344 
023346 
023352 
023356 
023360 
023364 
02336S 
023370 
023372 
023374 
02337S 
023400 
023402 
023404 
023406 
023410 
023412 
023420 
023424 
023430 
023432 
023434 
023440 
023442 
023444 
023446 
023450 
023452 
023454 
023462 
023464 
023466 
023470 
023472 



01 0046 
01 0146 
010246 
010346 
010546 
012746 
016605 
100004 
005405 
112766 
005000 
012703 
112723 
005002 
01 6001 
160105 
002402 
005202 
000774 
060105 
005702 
001002 
105716 
100407 
106316 
103003 
116663 
052702 
052702 
1 1 0223 
005720 
020027 
002746 
003002 
010502 
0007C4 
105726 
100003 
1 1 6653 
105013 
012605 
012603 
012602 
012601 



020200 
000020 



000055 000001 



023524 
000040 



000001 

000060 
000040 



*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
-SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
*NUMSER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
♦BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
*REPLAC£D WITH SPACES. 

♦call: 

* MOV NUM.-(SP) ;;PUT THE BINARY NUMBER ON THE STACK 

* TYPDS ;;GO TO THE ROUTINE 



STYPDS*. 



6$: 
7$: 



177777 177776 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

BPL 

NEG 

MOVB 

CLR 

MOV 

MOVB 

CLR 

MOV 

SUB 

BLT 

INC 

BR 

ADD 

TST 

BNE 

TSTB 

BMI 

ASLB 

BCC 

MOVB 

BIS 

BIS 

MOVB 

TST 

CMP 

BLT 

BGT 

MOV 

BR 

TSTB 

BPL 

MOVB 

CLRB 

MOV 

MOV 

MOV 

MOV 



RO.-(SP) 

R1 ,-(SP) 

R2,-(SP) 

R3,-(SP) 

R5,-(SP) 

#20200, -(SP) 

20(SP),R5. 

1$ 

R5 

#'-,1 (S?) 

RO 

#$DBLK,R3 

#' ,(R3)+ 

R2 

$DTBL(R0),R1 

R1 ,R5 

4$ 

R2 

3$ 

R1 ,R5 

R2 

5$ 

(SP) 

7$ 

(SP) 

6$ 

1(SP),-1(R3) 

#'0,R2 

#' ,R2 

R2, (R3)+ 

(R0) + 

R0,#10 

2$ 

8$ 

R5.R2 

6$ 

(SP) + 

9$ 

-1(SP) ,-2(R3) 

(R3) 

(SP)+,R5 

(SP)+ f R3 

(SP)+,R2 

(SP)+,R1 



;PUSH RO ON STACK 

;PUSH R1 ON STACK 

;PUSH R2 ON STACK 

;PUSH R3 ON STACK 

;PUSH R5 ON STACK 

;SET BLANK SWITCH AND SIGN 

;GET THE INPUT NUMBER 

;BR IF INPUT IS POS. 

;MAKE THE BINARY NUMBER POS. 

;MAKE THE ASCII NUMBER NEG. 

;ZERO THE CONSTANTS INDEX 

;SETUP THE OUTPUT POINTER 

;SET THE FIRST CHARACTER TO A BLANK 

;CLEAR THE BCD NUMBER 

;GET THE CONSTANT 

;FORM THIS BCD DIGIT 

;BR IF DONE 

; INCREASE THE BCD DIGIT BY 1 

;ADD BACK THE CONSTANT 

;CHECK IF BCD DIGIT=0 

;FALL THROUGH IF 

;STILL DOING LEADING ! S? 

;BR IF YES 

;MSD? 

;BR IF NO 

;YES— SET THE SIGN 

;MAKE THE BCD DIGIT ASCII 

;MAKE IT A SPACE IF NOT ALREADY A DIGIT 

;PUT THIS CHARACTER IN THE OUTPUT BUFFER 

;JUST INCREMENTING 

;CHECK THE TABLE INDEX 

;G0 DO THE NEXT DIGIT 

;G0 TO LXIT 

;GET THE LSD 

;G0 CHANGE TO ASCII 

;WAS THE LSD THE FIRST NON-ZERO? 

;BR IF NO 

;YES— SET THE SIGN FOR TYPING 

;SET THE TERMINATOR 

;POP STACK INTO R5 

;POP STACK INTO R3 

;POP STACK INTO R2 

;POP STACK INTO R1 
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SEQ 012S 



6910 

691 1 

6912 

6913 

6914 

6915 

6916 

6917 

6918 

6919 

6920 

6921 

6922 

6923 

6924 

6925 

6926 

6927 

6928 

6929 

6930 

6931 

6932 

6933 

6934 

6935 

6936 

6937 

6938 

6939 

6940 

6941 

6942 

6943 

6944 

6945 

6946 

6947 

6948 

6949 

6950 

6951 

6952 

6953 

6954 

6955 

6956 

6957 

6958 

6959 

6960 

6961 

6962 

6963 

6964 

6965 



023474 
023476 
023502 
023510 
023512 
023514 
023516 
023520 
023522 
023524 



023534 
023540 
023546 
023552 
023556 
023560 
023566 
023574 
023602 
023604 
023606 
023610 
023614 
023616 
023622 
023626 
023632 
023636 
023640 
023642 



012600 
104401 
016666 
012616 
000002 
023420 
001750 
000144 
000012 
000004 



017646 
116637 
112637 
062716 
000406 
112737 
112737 
112737 
01 0346 
010446 
010546 
113704 
005404 
062704 
110437 
113704 
016605 
005003 
006105 
000404 



023524 
000002 



000000 
000001 
023761 
000002 

000001 
000006 
000005 



023761 

000006 
023760 
023757 
000012 



MOV 


(SP)+,RO 


TYPE 


,$DBLK 


MOV 


2<SP) ,4(SP) 


MOV 


(SP)+,(SP) 


RTI 




10000. 




1000. 




100. 




10. 





; ;POP STACK INTO RO 
; ;NOW TYPE THE NUMBER 
; JADJUST THE STACK 

; ;RETURN TO USER 



SDBLK: .BLKW 4 

•SBTTL BINARY TO OCTAL (ASCII) AND TYPE 

*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 

*OCTAL (ASCII) NUMBER AND TYPE IT. 

*$TYPOS— ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

*CALL: 

* MOV NUM,»(SP) ;;NUMBER TO BE TYPED 

* TYPOS ;;CALL FOR TYPEOUT 

* .BYTE N ;;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

* .BYTE M ; ;M»1 OR 

* ; ;1=TYPE LEADING ZEROS 

* ;;0=SUPPRESS LEADING ZEROS 

*$TYPON— — ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

*$TYPOS OR STYPOC 

*CALL: 

* MOV NUM.-(SP) ;;NUMBER TO BE TYPED 

* TYPON ;;CALL FOR TYPEOUT 



'STYPOC- 
'CALL: 



-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 



MOV 
TYPOC 



STYPOS: MOV 
023757 MOVB 

MOVB 
ADD 
BR 
023757 STYPOC: MOVB 



023761 

023756 STYPON: 



MOVB 

MOVB 

MOV 

MOV 

MOV 

MOVB 

NEG 

ADD 

MOVB 

MOVB 

MOV 

CLR 

ROL 

BR 



NUM,-(SP) 



e(spj f -(sp) 

1 (SP) ,$OFILL 

(SP)+,$0M0DE+1 

#2,(SP) 

STYPON 

#1 ,SOFILL 

#6,$0M0DE+1 

#5,S0CNT 

R3,-(SP) 

R4,-(SP) 

R5,-(SP) 

SOMODEh-* ,R4 

R4 

#6,R4 

R4,$0M0DE 

$0FILL,R4 

12(SP) ,R5 

R3 

R5 

3$ 



; ; NUMBER TO BE TYPED 
; ;CALL FOR TYPEOUT 

; ;PICKUP THE MODE 
; ;LOAD ZERO FILL SWITCH 
;;NUMBER OF DIGITS TO TYPE 
;;ADJUST RETURN ADDRESS 

;;SET THE ZERO FILL SWITCH 

I ;SET FOR SIX(6) DIGITS 

;;SET THE ITERATION COUNT 

; ;SAVE R3 

; ;SAVE R4 

; ;SAVE R5 

;;GET THE NUMBER OF DIGITS TO TYPE 

;;SUBTRACT IT FOR MAX. ALLOWcD 

; ;SAVE IT FOR USE 

;;GET THE ZERO FILL SWITCH 

;; PICKUP THE INPUT NUMBER 

; ;CLEAR THE OUTPUT WORD 

; ;ROTATE MSB INTO "C 

; ;G0 DO MSB 
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6966 


023644 


006105 




6967 


023646 


00610S 




6S68 


023650 


006105 




6969 


023652 


010503 




6970 


0236S4 


006103 




6971 


023656 


105337 


023760 


6972 


023662 


100016 




6973 


023664 


042703 


177770 


6974 


023670 


001002 




6975 


023672 


005704 




6976 


023574 


001403 




6977 


023576 


005204 




6970 


023700 


052703 


000060 


6979 


023704 


052703 


000040 


6980 


023710 


110337 


023754 


6981 


023714 


104401 


023754 


6962 


023720 


105337 


023756 


6983 


023724 


003347 




6984 


023726 


002402 




6985 


023730 


005204 




6986 


023732 


000744 




6987 


023734 


012605 




6988 


023736 


012604 




6989 


023740 


012603 




6990 


023742 


016666 


000002 000004 


6991 


023750 


012616 




6992 


023752 


000002 




6993 


023754 


000 




6994 


023755 


000 




6995 


023756 


000 




6996 


023757 


000 




6997 


023760 


000000 




6998 








6999 








7000 








7001 








7002 








7003 








7004 








7005 








7006 








7007 








7008 








7009 


023752 


022737 


00017$ 001 140 


7010 


023770 


001074 




7011 


023772 


10577 7 


155148 


7012 


023778 


100071 




7013 


024000 


117 746 


"1 53 142 


7014 


024004 


042716 


177600 


7016 


024010 


02272S 


000007 


7016 


024014 


001062 




701? 


024016 


' 23727 


001134 000001 


7013 


024024 


001456 




7019 








7020 


024026 


104401 


024647 


7021 


0240 32 


104401 


024654 



as j 



SOCNT: 
SOFILL: 
$OMOD£: 



ROL 

ROL 

ROL 

MOV 

ROL 

DECB 

BPL 

BIC 

BNE 

TST 

BEQ 

INC 

BIS 

BIS 

MOVB 

TYPE 

DECB 

BGT 

BLT 

INC 

BR 

MOV 

MOV 

MOV 

MOV 

MOV 

RTI 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.WORD 



R5 

R5 

R5 

R5,R3 

R3 

SOMODE 

7$ 

#177770, R3 

4$ 

R4 

5$ 

R4 

#'0,R3 

#' ,R3 

R3,8$ 

,8$ 

SOCNT 

2$ 

6$ 

R4 

2$ 

(SPH.R5 

(SP)+,R4 

(SP)+,R3 

2(SP),4(SP) 

(SP)+,(SP) 



;FORM THIS DIGIT 



GET LSB OF THIS DIGIT 

TYPE T.MS DIGIT? 

SR IF NO 

GET RID OF JUNK 

TEST FOR 

SUPPRESS THIS 0? 

BR IF YES 

DON'T SUPPRESS ANYMORE O'S 

MAKE THIS DIGIT ASCII 

MAKE ASCII IF NOT ALREADY 

SAVE FOR TYPING 

GO TYPE THIS DIGIT 

COUNT BY 1 

BR IF MORE TO DO 

BR IF DONE 

INSURE LAST DIGIT ISN'T A BLANK 

GO DO THE LAST DIGIT 

RESTORE R5 

RESTORE R4 

RESTORE R3 

SET THE STACK FOR RETURNING 

RETURN 

STORAGE FOR ASCII DIGIT 

TERMINATOR FOR TYPE ROUTINE 

OCTAL DIGIT COUNTER 

ZERO FILL SWITCH 

NUMBER OF DIGITS TO TYPE 



.SBTTL TTY INPUT ROUTINE 



**$*»jc*4>i|i#$D<*$*# 



.ENABL LSB 



;*SOFT 
;*ROUT 
;*SERV 
;*WH£N 
$CKSWR 



WARE SW 
INE IS 
ICE THE 
OPERAT 
: CMP 
BNE 
TST8 
BPL 
MOVB 
BIC 
CMP 
BNE 
CMP8 
BEQ 

TYPE 

: TYPE 



***** *************************** *******»<*****■!'* 

ITCH REGISTER CHANGE ROUTINE. 

ENTERED FROM THE TRAP HANDLER, AND WILL 

TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
ING IN TTY FLAG MODE. 



#SWREG,SWR 

15$ 

@$TKS 

15$ 

#$TKB,-(SP) 

dTC177,(SP) 

#7,{SP)+ 

15$ 

$AU?0B,#1 

15$ 

,$CNTLG 

,$MSWR 



IS THE SOFT-SWR SELECTED? 
; BRANCH IF NO 
;CHAR THERE? 

;IF NO, DON'T WAIT AROUND 
;SAVE THE CHAR 
;STRIP-OFF THE ASCI'. 
;IS IT A CONTROL G? 
;N0, RETURN TO USER 
;ARE WE RUNNING IN AUTO-MODE? 
; BRANCH IF YES 

; J ECHO THE CONTROL-G ("G) 
;jTYP£ CURRENT CONTENTS 
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TTY INPUT ROUTINE 



SEO 0138 



7022 
7023 
7024 
7025 
7026 
7027 
7028 
7029 
7 030 
7031 
7032 
7033 
7034 
7035 
7036 
7037 
7038 
7039 
7040 
7041 
7042 
7043 
7044 
7045 
7046 
7047 
7048 
7049 
7050 
7051 
7052 
7053 
7054 
7055 
7056 
7057 
7058 
7059 
7060 
7081 
7062 
7063 
7064 
7065 
7068 
7067 
7068 
7069 
7070 
7071 
7072 
7073 
7074 
7075 
7076 
7077 



024036 
024042 
024044 
024050 
024052 
024054 
024060 

024062 
024068 



024072 
024076 
024100 
02*104 
0241 10 



013746 000 176 

104402 

10 440 1 024665 

005046 

005046 

105777 155064 

100375 



11 7746 

042716 



155060 
17 7600 



021627 000025 

001005 

10 4401 024642 

062705 000006 

00 0757 



024112 

0241 16 

024120 ' 

024124 

024128 

024134 

024140 

024144 

024152 

024154 

024162 

024164 

024170 

024174 

0241 76 

024202 

024204 

024210 

024214 

024218 

024220 

024222 

024224 

024230 

024234 

024236 

024242 



021827 
001022 
005766 
001403 
016677 
062706 
10 4401 
123727 
001003 
012777 
000002 
004737 
02162 7 
002420 
02 1627 
003015 
042726 
005766 
001403 
006318 
006316 
006316 
005266 
056616 
000707 
104401 
000720 



000004 

000002 
000006 
001213 
001135 

000100 



000060 

000002 



COCC02 
1777 76 





MOV 


SWREG, 




TYPOC 






TYPE 


,$MNEW 


19$: 


CLR 


-(SP) 




CLR 


-(SP) 


7$; 


TSTB 


§>$TKS 




BPL 


7$ 



000001 
1 54762 



11$: 

14$: 



15$; 

16$ : 



MOVB @$TKB,»(SP) 
BIC #~C177,(SP) 



CMP 

BNE 

TYPE 

ADD 

BR 



m? 

BNE 

TST 

BEQ 

MOV 

ADD 

TYPE 

CMPB 

BNE 

MOV 

RTI 

JSR 

CMP 

BLT 

CMP 

BGT- 

BIC 

TST 

BEQ 

ASL 

ASL 

ASL 

INC 

BIS 

BR 

TYPE 

BR 

LSB 



(SP),#2S 

10$ 

.SCNTLU 

#S,SP 
19$ 



(SP),#15 

16$ 

4{SP) 

11$ 

2(SP) ,0SWR 

06, SP 

,$CRLF 

$INTAG,#1 

15$ 

#100 f G$TKS 

PC,$TYPEC 

(SP) f #60 

13$ 

<SP),#6 7 

18$ 

#60,(SP)+ 

2(SP) 

17$ 

(SP) 

{SP} 

(SP) 

2(SP) 

-2(SP),(SP) 

7$ 

,$OUES 

20$ 



SAVE SWREG FOR TYP70UT 

GO TYPE—OCTAL ASCIKALL DIGITS) 

PROMPT FOR NEW SWR 

CLEAR COUNTER 

THE NEW SWR 

CHAR THERE? 

IF NOT TRY AGAIN 

PICK UP CHAR 

MAKE IT 7-BIT ASCI' 



;IS IT A CONTROL-U? 

; BRANCH IF NOT 

;YES, ECHO CONTROL-U (*U) 

; IGNORE PREVIOUS INPUT 

?LET«S TRY IT AGAIN 



IS IT A <CR>? 

BRANCH IF NO 

YES. IS IT THE FIRiT CHAR? 

BRANCH IF YES 

SAVE NEW SWR 

CLEAR UP STACK 

ECHO <CR> AND <LF> 

RE-ENABLE TTY KBD INTERRUPTS? 

BRANCH IF NOT 

RE-ENABLE TTY KBD INTERRUPTS 

RETURN 

ECHO CHAR 

CHAR < 0? 

BRANCH IF YES 

CHAR > 7? 

BRANCH IF YES 

STRIP-OFF ASCII 

IS THIS THE FIRST CHAR 

BRANCH IF YES 

NO, SHIFT PRESENT 

CHAR OVER TO MAaE 

ROOM FOR NEW 0N£. 
KEEP COUNT OF CHAR 
SET IN NEW CHAR 
GET THE NEXT ONE 
TYPE ?«-CRXLF> 
SIMULATE CONTROL-U 



••THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THF, TTY 

;** Al "" RDCHft ;|INPUT A SINGLE CHARACTER FROM THE TTY 

:* RETURN HERE ; iCHARACTER IS ON JHk STACK 

JWITH PARITY BIT STRIPPED OFF 
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7078 
7079 
7080 
7081 
7082 
7083 
7084 
7085 
7086 
7087 
7088 
7089 
7090 
7091 
7092 
7093 
7094 
7095 
7096 
7097 
7098 
7099 
7100 
7101 
7102 
7103 
7104 
7105 
7106 
7107 
7108 
7109 
71 10 
7111 
7112 
7113 
7114 
71 15 
7116 
71 17 
71 18 
71 19 
7120 
7121 
7122 
7123 
7124 
7125 
7126 
7127 
7128 
7129 
7130 
7131 
7132 
7133 



024244 
024246 
024254 
024260 
024262 
024270 
024276 
024304 
024306 
024312 
024314 
024320 
024324 
024330 
024332 
024334 
024342 
024344 
024352 
024354 
024362 



01 1646 
01 6666 
105777 
100375 
117766 
042766 
026627 
001013 
105777 
100375 
1 1 7746 
042716 
022627 
001366 
000750 
026627 
002407 
026627 
003003 
042766 
000002 



024364 
024366 
024370 
024374 
024400 
C24402 
024404 
024406 
024412 
024414 
024416 
024420 
024426 
024432 
024436 
024440 
024444 
024446 
024452 
024456 
024460 
024462 
024464 
024472 
024476 
024500 



000004 
154664 

154660 
177600 
000004 



154626 
177600 
000021 



000004 
000004 
000040 



000004 
000004 
000023 



000140 3$: 



010346 

005046 
012703 
022703 
101456 
104410 
1 12613 
122713 
001022 
005716 
001007 
112737 
104401 
012716 
005303 
020327 
103434 
11 1337 
104401 
000746 
005716 
001406 
112737 
104401 
005016 
122713 



$RDCHRS MOV 
MOV 

1$: TSTB 

BPL 

MOVB 

BIC 

CMP 

BNE 

TSTB 

BPL 

MOVB 

BIC 

CMP 

BNE 

BR 

CMP 

BLT 

CMP 

BGT 

BIC 

RTI 



024620 

024642 



000134 

024616 
177777 



024616 
024616 



000134 
024616 



(SP).-(SP) 
4(SP),2(SP) 

@$TKS 

1S 

@$TKB,4(SP) 

#~C<177>,4(SP) 

4(SP) ,#23 

3$ 

@$TKS 

2$ 

@$TKB,-(SP) 

#~C177, (SP) 

(SP)+,#21 

2$ 

1$ 

4(SP),#140 

4$ 

4(SP),#175 

4$ 

#40,4(SP) 



PUSH DOWN THE PC 

SAVE THE PS 

WAIT FOR 

A CHARACTER 

READ THE TTY 

GET RID OF JUNK IF ANY 

IS IT A CONTROL-S? 

BRANCH IF NO 

WAIT FOR A CHARACTER 

LOOP UNTIL ITS THERE 

GET CHARACTER 

MAKE IT 7-BIT ASCII 

IS IT A CONTROL-Q? 

IF NOT DISCARD IT 

YES, RESUME 

IS IT UPPER CASE? 

BRANCH IF YES 

IS IT A SPECIAL CHAR? 

BRANCH IF YES 

MAKE IT UPPER CASE 

GO BACK TO USER 



«*#!}!######## 



;*THIS 


ROUTINE 


WILL INPUT A STRIh 


;*CALL: 






; * 


RDLIN 




;* 


RETURN 


HERE ; 


SRDLIN: 


MOV 


R3.-CSP) 




CLR 


-(SP) ; 


1$: 


MOV 


#$TTYIN,R3 ; 


2$: 


CMP 


#$TTYIN*22,R3 




BLOS 


4$ 




RDCHR 






MOVB 


(SP)+,(R3) 


10$: 


CMPB 


#177, (R3) 




BNE 


5$ 




TST 


(SP) 




BNE 


6$ 




MOVB 


# ! \,9$ 




TYPE 


,9$ 




MOV 


#~1 ,(SP) 


6$: 


DEC 


R3 




CMP 


R3,#$TTYIN 




BLO 


4$ 




MOVB 


(R3),9$ 




TYPE 


,9S 




BR 


2$ 


55: 


TST 


(SP) 




BEO 


7$ 




MOVB 


#'\,9$ 




TYPE 


,9$ 




CLR 


(SP) 


7$: 


CMPB 


#25, (R3) 



ING FROM THE TTY 



INPUT A STRING FROM THE TTY 

ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 

TERMINATOR WILL BE A BYTE OF ALL O'S 

SAVE R3 

CLEAR THE RUBOUT KEY 

GET ADDRESS 

BUFFER FULL? 

BR IF YES 

GO READ ONE CHARACTER FROM THE TTY 

GET CHARACTER 

IS IT A RUBOUT 

BR IF NO 

IS THIS THE FIRST RUBOUT? 

BR IF NO 

TYPE A BACK SLASH 

SET THE RUBOUT KEY 

BACKUP BY ONE 

STACK EMPTY? 

BR IF YES 

SETUP TO TYPEOUT THE DELETED CHAR. 

GO TYPE 

GO READ ANOTHER CHAR. 

RUBOUT KEY SET? 

BR IF NO 

TYPE A BACK SLASH 

;CLEAR THE RUBOUT KEY 
;IS CHARACTER A CTRL U? 
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SEO 0130 



7134 
7135 
7136 
7137 
7138 
7139 
7140 
7141 
7142 
7143 
7144 
7145 
7146 
7147 
7148 
7149 
7150 
7151 
7152 
7153 
7154 
7155 
7156 
7157 
7158 
7159 
7160 
7161 
7162 
7163 
7164 
7165 
7166 
7167 
7168 
7169 
7170 
7171 
7172 
7173 
7174 
7175 
7176 
7177 
7178 
7179 
7180 
7181 
7182 
7183 
7184 
7185 
7186 
7187 
7188 
7189 



024504 
024506 
024512 
024514 
024520 
024522 
024524 
024530 
024534 
024536 
024542 
024544 
024550 
024554 
024560 
024562 
024566 
C24572 
024574 
024576 
024600 
024606 
024614 
024616 
024617 
024620 
024642 
024647 
024654 
024662 
024665 
024672 



001003 
104401 
000726 
122713 
00101 1 
105013 
104401 
104401 
000717 
104401 
000712 
11 1337 
104401 
122723 
001305 
105063 
104401 
005726 
012603 
01 1646 
016666 
012766 
000002 

000 

000 
000022 
052536 

136 
005015 
020075 

040 
036440 



024676 
024700 
024704 
024706 
024710 
024712 
024716 



024642 

000022 



001213 
024620 



024616 
024616 
000015 

177777 

001214 



000004 
024620 



005015 
006507 
053523 
000 
047040 
000040 



000002 
000004 



000 
000012 
020122 



01 0046 
016600 
005740 
11 1000 
006300 
016000 
000200 



9$: 

STTYIN 
SCNTLU 
SCNTLG 
SMSWR: 



BNE 

TYPE 

BR 

CMPB 

BNE 

CLRB 

TYPE 

TYPE 

BR 

TYPE 

BR 

MOVB 

TYPE 

CMPB 

BNE 

CLRB 

TYPE 

TST 

MOV 

MOV 

MOV 

MOV 

RTI 

.BYTE 

.BYTE 

.BLKB 

.ASCIZ 

.ASCIZ 

.ASCIZ 



8$ 

, SCNTLU 

1$ 

#22, (R3) 

3$ 

(R3) 

,$CRLF 

, STTYIN 

2$ 

,SOUES 

1$ 

(R3J.9S 

,9$ 

#15,(R3)+ 

2$ 

-1(R3) 

,$LF 

<SP) + 

(SP)+,R3 

(SP).-(SP) 

4(SP),2(SP) 

#$TTYIN,4(SP) 





22 

/~U/<15><12> 

/*G/<15><12> 

<15><12>/SWR 



053505 $MNEW: .ASCIZ / NEW 



BR IF NO 

TYPE A CONTROL "U H 

GO START OVER 

IS CHARACTER A "~R"? 

BRANCH IF NO 

CLEAR ', HE CHARACTER 

TYPE A "CR" & "LF" 

TYPE THE INPUT STRING 

GO PICKUP ANOTHER CHACTER 

TYPE A ■?' 

CLEAR THE BUFFER AND LOOP 

ECHO THE CHARACTER 

CHECK FOR RETURN 
LOOP IF NOT RETURN 
CLEAR RETURN (THE 15) 
TYPE A LINE FEED 

CLEAN RUBOUT KEY FROM THE STACK 
RESTORE R3 

ADJUST THE STACK AND PUT ADDRESS OF THE 
FIRST ASCII CHARACTER ON IT 

RETURN 

STORAGE FOR ASCII CHAR. TO TYPE 

TERMINATOR 

RESERVE 22 BYTES FOR TTY INPUT 

CONTROL "U H 

CONTROL "G" 



;CONTROL U, RUBOUT CAPABILITY 



.SBTTL TRAP DECODER 

*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 
*AND USE IT TO INDEX THROUGH 1 HE TRAP TABLE FOR THE STARTING ADDRESS 
*0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
♦GO TO THAT ROUTINE. 



024720 011646 

024722 016666 000004 

024730 000002 



STRAP: 


MOV 


ro,-(SPj ; 


;SAVE RO 




MOV 


2(SP),R0 ; 


;GET TRAP ADDRESS 




TST 


-<R0) ; 


; BACKUP BY 2 




MOVB 


(RO).RO ; 


;GET RIGHT BYTE OF TRAP 




ASL 


RO 


;POSITION FOR INDEXING 




MOV 


STRPAD(RO),RO 


; INDEX TO TABLE 




RTS 


RO ; 


JGO TO ROUTINE 


j;THIS 


IS USE 


TO HANDLE THE a GETP 


RI" MACRO 


STRAP2 


MOV 


(SP).-(SP) ; 


;MOVE THE PC DOWN 


000002 


MOV 


4(SP),2(SP) ; 


;MOVE THE PSW DOWN 




RTI 




; RESTORE THE PSW 
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71@0 








7191 








7192 








7193 








7194 








7195 








7198 








7197 


024732 


024720 




7198 


024734 


023070 




7199 


024736 


023S60 




7200 


024740 


023534 




7201 


024742 


023S74 




7202 


024744 


023310 




7203 








7204 


024748 


024032 




?aos 








7 206 


024750 


023762 




7 207 


OS 47 S3 


024244 




7208 


034754 


024364 




7209 








721Q 


0247SS 


Q217SQ 




7211 








7212 


024760 


022014 




7213 








7214 


024782 


022032 




7215 








7218 


024764 


021056 




7217 








7218 


024768 


021068 




7219 








7220 


024770 


021864 




7221 








7222 


024772 


a 17 06 




7223 








7224 


024774 


021572 




7225 








7228 








7227 








7228 








7229 








7230 








723? 


024776 


012737 


025142 000024 


7 232 


•"7 50 0^ 


01 2737 


000340 000026 


7233 


025012 


010046 




7234 


725014 


01 0146 




7235 


025016 


010246 




7 236 


025020 


01 0346 




7237 


025022 


010446 




7 238 


025024 


01 0546 




7239 


025026 


017746 


154106 


7240 


025032 


010637 


025146 


724 j 


02 50 36 


012737 


025050 O0Q024 


72*2 


',v504-. 


000000 




7243 


2504& 


060776 




7244 








7245 
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TRAP TABLE 

,SBTTL TRAP TABLE 

? ®THJS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES C&U.ED 
?*BY THE "TRAP" INSTRUCTION, 

; ROUTINE 



SEQ 0131 



STRPADJ .WORD STRAP2 

STYPE ;;CALLsTYPE 

STYPOC ;;CALL^TYPOC 

STYPOS ? fCALL^TYPOS 

STYPON ;;CALL«TYPQN 

STYPDS ??CALL«TYPDS 

SGTSWR ;;CALLaGTSWR 



TRAP+1 (104401 ) 
TRAP+2C 104402} 
TRAP*3( 104403) 
TRAP+4{ 104404) 
TRAP+S( 104403} 



TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH Lg 

TYPE OCTAL NUMSER (HO LEAD 

TYPE OCTAL NUMBER , AS PER 

TYPE DECIMAL NUMBER (WITH SIGN) 



:-\scss 

7$C-S> 



3CKSWR };CALL*CKSWR 
SRDCHR ;?CAU*RDCHR 
SRPLSN ;;CALL«RDUN 



TRAP+S( 104406) GET SQFT-$« SET] 

TRAP+7C 104407) TEST FOR CHANGE ) 
TRA?*1Q(10441Q) TTY TYPE IN C*ha*aC 
TRAP+1 1( 10441 1 ) TTY TYPE1N STRING 



IMC 

ROUTINE 

CH.CRDY SJCALL«CHKCRDY TRAP+12( 10441 2} CHECK CONTROL RIADY 

CN.RST !{CALL®CNT. RESET TRAP+1 3{ 1 0441 3) CONTROL ^ESET ROUTINE 

CN«RDY IfCALL^CNT.RDY TRAP+14( 1 04414) WAIT FOR CNTRL. ROY TO SET 

BDAO ;;CALL«BRKDAO ?RAP+15( 104415) BREAK RKDA INTO OR #, CYUSUR«SEC ilTS 

BDA4 ?;CALL«8RK0A4 TRAP*16{ 1 0441 6) BREAK RKOA INTO DP <,CYL Sir- *•'<•. -. > 

DELA.Y ??CALLsDELAY 7RAP*17( 104417) TIMEBEUY H0UT1NE 

WATINT ;;CALL*WAT.INT- TRAP+20< 104420) WAIT FOR RK11 INTERRUPT ROUTINE 

TSTSIN ??CALL«TST.SIN TRAP+21 ( 104421) TEST SIN ROUTINE 

.S8TTL POWER DOWN AND UP ROUTINES 



« • $ $ $ « K 

; POWER 



*&mi$*«!!fs?-si 



DOWN ROUTINE 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

HALT 

BR 



#$ILLUP,»#PWRV£C 

034O f S>#PWRVEC+2 

R0,~(SP) 

R1 f -(SP) 

R2,-(SP) 

R3,-(SP) 

R4,-(SP) 

R5 f -(SP) 

@SWR,~(SP) 

SP,$SAVR8 

#$PWRUP,*#PWSVSC 



# * ®w # * t» * * * * * * #*#*** 

;SET FOR FAST UP 
PR 10 : 7 

PUSH RO ON STACK 
PUSH R1 ON STACK 

PUSH FT. ON STACK 
PUSH R3 ON STACK 
PUSH R4 ON STACK 
PUSH R5 ON STACK 
PUSH <g>SWR ON STACK 
SAVE SP 
} SET UP VECTOR 

HANG UP 



D-11-CZRKKF. RK11 8ASIC LOGIC 


TEST 2 


MACY11 
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ZRKKF, 


P11 21-FEB-78 


08151 




POWER DOWN AND 


UP ROUTINES 






7"i*K 










; POWER 


UP ROUTINE 






7 24 7 


25050 


012737 


02S142 


000024 


SPWRUP.* 


MOV 


#$ILLUP 1WP8RVEC 


; ?SET 


FOR FAST DOWN 


7248 


250S6 


01 3706 


025146 






MOV 


SSAVR6.SP 


;GET 


SP 


7 249 


■7 25062 


005037 


025146 






CLR 


SSAVR8 


;WAIT 


LOOP FOR THE '' ''Y 


7 250 


025066 


005237 


■&2S146 




1$: 


INC 


SSAVRS 


;WAIT 


FOR THE INC 


7251 


250 72 


00 1375 








BNE 


1S 


;0F 


WORD 


7252 


025074 


12677 


1 54040 






MOV 


(SP)+,@SWR 


;POP 


STACK INTO ©SWF* 


7253 


0251 00 


012605 








MOV 


(SP)+,R5 


;POP 


STACK INTO R5 


7254 


025102 


01 2604 








MOV 


(SPJ+.R4 


•POP 


STACK INTO PA 


7255 


025104 


012603 








MOV 


(SP)+«R3 


;POP 


STACK INTO 9.3 


7256 


025106 


012602 








MOV 


(SP)+,R2 


;POP 


STACK INTO R2 


"'257 


0251 10 


012601 








MOV 


CSP)-*-,R1 


;PQP 


STACK INTO R1 


7258 


025113 


012600 








MOV 


(SP)+,RO 


;POP 


STACK INTO RO 


7259 


0251 14 


012737 


024776 


Q0Q024 




MOV 


#$PWRON,0#PW«VEC 


??SET 


UP THE POWER DOWN VEC 


7260 


025122 


012737 


000340 


00002® 




MOV 


#340,»#PWRVEC+2 


;PRIQ 


:7 


7261 


025130 


104401 








TYPE 




REPORT THE POWER FAJUJRS 


7 262 


025132 


0251 SO 






SPWRMGs 


.WORD 


$ POWER 


{POWER FAIL MESSAGE POINTER 


7263 


025134 


012716 








MOV 


<PC)+,(SP) 


; RESTART AT PFSTRT 


7264 


025136 


004702 






SPWRADs 


.WORD 


PFSTRT 


; RESTART ADDRESS 


726S 


25140 


000002 








RTI 








7 266 


025142 


000000 






SILLUPs 


HALT 




JTHE 


POWER UP SEwUE f ;l <>k'J 


7267 


025144 


000776 








BR 


.-a 


; BEFORE THE POWER DOWN WA£ 


7268 


025146 


000000 






SSAVR6; 







;PUT 


THE SP HERE 


7269 


025150 


00501S 


047520 


042527 


SP0WER5 


.ASCXZ 


<1 5><1 2>" POWER* 






7270 


025156 


00 0122 
















7271 












.EVEN 








7272 




















7273 


025160 


004737 


021504 




FCHECK: 


JSR 


PC.ORESET 




; RESETS DRIVE 


7274 


025164 


i 04026 








ERROR 


26 






7275 


025166 


104413 








CNT. RESET 






7276 


25170 


013737 


001350 


025302 




MOV 


DRlVAD f ORHOLD 




;SAVE DRIVE AORR 


7277 


025176 


032737 


020000 


001350 




SIT 


#20000, DRIVAD 




;SEE If ODD 


7278 


025204 


001404 








8E0 


IS 






7279 


025208 


04 2737 


020000 


0013S0 




BIC 


020000 ,DRZVAO 




;MAKE EVEN 


7 280 


.125214 


00 0403 








BR 


2$ 






7281 


25216 


052 7 37 


020000 


001 350 


1$: 


BIS 


#20000 ,DR1¥ASS 




;MAKE ODD 


7282 


025224 


013777 


001356 


154106 


as; 


MOV 


DRIVAD,*RKDA 


.DRIVE 


ADDR 


7283 


025232 


0127 77 


000011 


1S4072 




MOV 


#11 ,@RKC5 




;DRIVE SEEK 


7 284 


025240 


104414 








CNT, ROY 








7285 


025242 


01 3777 


025303 


1S4070 




MOV 


DRHOlD,tR&0A 




; OTHER DRIVE 


7286 


025250 


104414 








CNT.RDY 








7287 


25252 


032777 


000100 


154046 




BIT 


#100,f<RKDS 




;HEAEDS IN M0TI0NK7 


7 2 88 


025260 


00 1001 








BNE 


3$ 




;N0 SO RK-05J 


7289 


025262 


005725 








1ST 


(R5) + 




;YES RK-05F - 


7290 


025264 


013737 


025302 


001350 


3$i 


MOV 


ORHOLD, ORIVAO 




; RESTORE ADDR 


7291 


025272 


004737 


021504 






JSR 


PC.DRESET 




;WAIT FOR RESET 


7292 


025276 


t 04026 








ERROR 


26 






7293 


025300 


000205 








RTS 


R5 






7294 


025302 


000000 






ORHOLD 











7295 


025304 


005037 


001350 




SI2EF2 


CLR 


DRIVAD 


i START 


AT DRO 


7296 


025310 


012700 


001414 






MOV 


#DRIVO,R0 




; TABLE OF AVA'U, DfitV 


7297 


C25314 


005710 






4$! 


TST 


(RO) 




;THIS DRIVE HERE? 


7298 


025316 


001413 








BEO 


2$ 




;N0 


7299 


025320 


00 5760 


ooooO;a 






TST 


2CR0) 




■ ^n*/" L A/>,t * ** 'Z 


7300 


C 75324 


00 5 41 








BEO 


2$ 




:N0 


7301 


' 5323 


004537 








OSR 


R5, FCHECK 




•SEE IF F M00r-.l. 



SEQ 013S 
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SEO 0133 



7302 
7303 
7304 
7305 
7306 
7307 
7308 
7309 
7310 
7311 
7312 
7313 
7314 
7315 
7316 
7317 
7318 
7319 
7320 
7321 
7322 
7323 
7324 
7325 
7326 
7327 
7328 
7329 
7330 
7331 
7332 
7333 
7334 
7335 
733S 
7337 
7338 
7339 
7340 
7341 
7342 
7343 
7344 
7345 
7346 
7347 
7348 
7349 
7350 
7351 
7352 
7353 
7354 
7355 
7356 
7357 



025332 
025334 
025340 
025346 
025350 
025352 
025360 
025364 
025366 



025370 
025376 



000405 
052710 
052760 
005720 
005720 
062737 
022700 
003353 
000207 



100000 
100000 



040000 
001433 



045522 041527 042440 EU 11 : 
047522 000122 



025402 
025410 

025415 
025422 

025427 
025434 
025442 
025450 

025456 
025464 

025470 
025476 

025500 

025506 

025510 

025516 
025524 

025531 
025536 
025544 

025551 

025556 
025564 

025570 

025576 
025604 
025612 
025620 



044523 020116 
051440 052105 



122 

051105 

122 
051127 
043101 
051447 

045522 
047522 



041113 
051117 

042113 
047117 
042524 
042523 

051504 
000122 



050104 020114 
000124 

051104 020125 
000124 

045522 032460 

052111 047040 

051440 052105 

104 054522 

052111 047040 

051440 052105 

123 045517 

042111 023516 

042523 000124 

042523 026503 

051124 042040 

023516 020124 

047125 020124 

030040 000 



051511 EM12: 
000 

020101 EM13: 
000 

020101 EM16: 
020107 
020122 
000047 

042440 EM21: 



042523 EM30: 



042523 EM31: 



041040 

0521 17 

000 

041040 

0521 17 

000 

042040 
020124 



047103 
042111 
047503 
047524 



BR 


2$ 


BIS 


#1 00000, (RO) 


BIS 


#100000, 2(R0) 


TST 


(R0) + 


TST 


(R0) + 


ADD 


#40000, DRIVAD 


CMP 


#DRIV7+1 ,R0 


BGT 


4$ 


RTS 


PC 



;J MODEL 

;SET SIGN FOR F 

-.BOTH DRIVES 

;NEXT PAIR OF DRIVES 
;NEXT ACTUL ADDR 
; CHECKED ALL? 
;NOT YET 



; ERROR MESSAGES 

.SBTTL ERROR MESSAGES 

.ASCIZ /RKWC EROR/ 

.ASCIZ /SIN IS SET/ 

.ASCIZ /RKBA EROR/ 

.ASCIZ /RKDA WRONG AFTER 'SSE'/ 

.ASCIZ /RKDS EROR/ 

.ASCIZ /DPL SET/ 

.ASCIZ /DRU SET/ 

.ASCIZ /RK05 BIT NOT SET/ 

.ASCIZ /DRY BIT NOT SET/ 

.ASCIZ /SDK DIDN'T SET/ 

.ASCIZ /SEC-CNTR DIDN'T COUNT TO 0/ 



MD-1 1-CZRKKF, RK11 BASIC LOGIC 


TEST 2 
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7358 


025623 


123 


041505 


041455 


7359 


025630 


0521 16 


020122 


044504 


7360 


025636 


047104 


052047 


044440 


7361 


025644 


041516 


046522 


0521 16 


7362 


025652 


000 






7363 










7364 


025653 


123 


041505 


041455 


7365 


025660 


052517 


052116 


020122 


7366 


025666 


0471 1 1 


051 103 


042515 


7367 


025674 


0521 16 


042105 


053440 


7368 


025702 


047522 


043516 


000 


7369 










7370 


025707 


104 


042111 


023516 


7371 


025714 


020124 


042507 


020124 


7372 


025722 


041523 


051475 


020101 


7373 


025730 


047506 


020122 


044124 


7374 


025736 


05151 1 


051440 


041505 


7375 


025744 


051124 


000 




7376 










7377 


025747 


105 


047522 


026522 


7378 


025754 


027522 


027527 


020123 


7379 


025762 


042122 


020131 


044123 


7380 


025770 


052517 


042114 


041040 


7381 


025776 


020105 


042523 


000124 


7382 










7383 


026004 


047125 


054105 


042520 


7384 


026012 


052103 


042105 


051040 


7385 


026020 


030513 


020061 


0471 11 


7386 


026026 


042524 


051122 


050125 


7387 


026034 


000124 






7388 










7389 


026036 


047103 


051124 


020114 


7390 


026044 


042122 


020131 


044501 


7391 


026052 


047104 


052047 


051440 


7392 


026060 


052105 


040440 


052106 


7393 


026066 


051105 


051440 


042505 


7394 


026074 


020113 


051117 


042040 


7395 


026102 


020122 


042522 


042523 


7396 


026110 


000124 






7397 










7398 


026112 


051105 


020122 


0511 17 


7399 


026120 


044040 


020105 


044502 


7400 


026126 


020124 


042523 


020124 


7401 


026134 


0471 17 


051440 


042505 


7402 


026142 


0201 13 


051117 


042040 


7403 


026150 


020122 


042522 


042523 


7404 


026156 


000124 






7405 










7406 


026160 


045522 


051105 


041040 


7407 


026166 


0521 1 1 


020054 


047117 


7408 


026174 


051440 


042505 


0201 13 


7409 


026202 


051117 


042040 


020122 


7410 


026210 


042522 


042523 


000124 


7411 










7412 


026216 


045522 


051503 


041440 


7413 


026224 


047110 


042107 


040440 
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ERROR MESSAGES 



EM36: .ASCIZ /SEC-CNTR DIDN'T INCRMNT/ 



EM37: .ASCIZ /SEC-COUNTR INCRMENTED WRONG/ 



EM40: .ASCIZ /DIDN'T GET SC=SA FOR THIS SECTR/ 



EM41: .ASCIZ "EROR-R/W/S RDY SHOULD BE SET 8 



EM43: .ASCIZ /UNEXPECTED RK1 1 INTERRUPT/ 



EUAAt .ASCIZ /CNTRL RDY DIDN'T SET AFTER SEEK OR DR RESET/ 



EM45: .ASCIZ /ERR OR HE BIT SET ON SEEK OR DR RESET/ 



EMA61 .ASCIZ /RKER BIT, ON SEEK OR DR RESET/ 



m47". .ASCIZ /KKCS CHNGD AFTR FUNCTION WAS DONE/ 
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7414 


026232 


0S2106 


020122 


0S2S06 


7415 


026240 


041516 


044524 


047117 


741B 


02S246 


053440 


051501 


042040 


741? 


026254 


047117 


000105 




741B 










7419 


026260 


027522 


027527 


020123 


7420 


026266 


042122 


020131 


044504 


7421 


026274 


047104 


052047 


041440 


7422 


026302 


042514 


051101 


000 


7423 










7424 


026307 


122 


053457 


051457 


7425 


026314 


051040 


054504 


042040 


7426 


026322 


042111 


023516 


020124 


7427 


026330 


042523 


020124 


04310) 


7428 


026336 


051124 


051440 


042505 


7429 


026344 


020113 


051117 


042040 


7430 


026352 


020122 


042522 


042523 


7431 


026360 


000124 






7432 










7433 


026362 


045522 


040504 


041440 


7434 


026370 


047110 


042107 


040440 


7435 


026376 


052106 


020122 


042523 


7436 


026404 


045505 


000 




7437 










7438 


026407 


103 


052116 


046122 


7439 


026414 


051040 


054504 


042040 


7440 


026422 


042111 


023516 


020124 


7441 


026430 


046103 


020122 


051501 


7442 


026438 


043440 


020117 


040527 


7443 


026444 


020123 


042523 


000124 


7444 










7445 


026452 


047103 


051124 


0201 14 


7446 


026460 


042122 


020131 


044504 


7447 


026466 


047104 


052047 


051440 


7448 


026474 


052105 


047440 


0201 16 


7449 


026502 


051127 


027524 


046506 


7450 


026510 


020124 


052123 


051101 


7451 


026516 


044524 


043516 


043040 


7452 


026524 


047522 


020115 


042074 


7453 


026532 


045523 


040455 


051104 


7454 


026540 


051505 


000076 




7455 










7456 


026544 


042510 


047440 


020122 


7457 


026552 


051 105 


020122 


0471 17 


7458 


026560 


053440 


052122 


043057 


7459 


026556 


052115 


051440 


040524 


7460 


026574 


052122 


047111 


020107 


7461 


026602 


051106 


046517 


036040 


7462 


026610 


051504 


026513 


042101 


7463 


02661S 


042522 


037123 


000 


7464 










7465 


026623 


122 


042113 


02010- 


7466 


026630 


0471 1 1 


051103 


047115 


7467 


026636 


042124 


053440 


047522 


7468 


026644 


043516 


047440 


020116 


7469 


026652 


051127 


026524 


046506 



.ASCIZ B R/W/S RDY DIDN'T CLEAR 1 ' 



.ASCIZ B R/W/S RDY DIDN'T SET AFTR SEEK OR DR RESET 8 



EM52! .ASCIZ /RKDA CHNGD AFTR SEEK/ 



.ASCIZ /CNTRL RDY DIDN'T CLR AS GO WAS SET/ 



.ASCIZ 9 CNTRL RDY DIDN'T SET ON WRT/FMT STARTING FROM <DSK»ADRES> 6 ' 



.ASCIZ "HE OR ERR ON WRT/FMT STARTING FROM <DSK-ADRES>" 



.ASCIZ /RKDA INCRMNTD WRONG ON WRT-FMT/ 



MD-11-C2RKKF, R 


K11 BASIC LOGIC 


TEST 2 


CZRKKF. 


P11 21-FEB-78 


08:51 




7470 


026660 


000124 






7471 










7472 


026682 


045522 


041527 


042040 


7473 


026670 


04211 1 


023516 


020124 


7474 


026676 


053117 


043122 


047514 


7475 


026704 


047440 


020116 


051 127 


7476 


026712 


020124 


046506 


000124 


7477 










7478 


026720 


045522 


040502 


044440 


7479 


026726 


041516 


046522 


052116 


7480 


026734 


020104 


051127 


047117 


7481 


026742 


020107 


047117 


053440 


7482 


026750 


052122 


043040 


0521 15 


7483 


026756 


000 






7484 










7485 


026757 


122 


042513 


020122 


7486 


026764 


042523 


026124 


047117 


7487 


026772 


053440 


052122 


047440 


7488 


027000 


020122 


042122 


047440 


7489 


027006 


020122 


046506 


000124 


7490 










7491 


027014 


045522 


041104 


042440 


7492 


027022 


047522 


000122 




7493 











MACY11 30A(1052) 
ERROR MESSAGES 



S1-FEB-7S 08558 PAGE 137 



.ASCIZ /RKWC DIDN'T OVRFLO ON WRT FMT/ 



.ASCIZ /RKBA INCRMNTD WRONG ON WRT FMT/ 



.ASCIZ /RKER SET, ON WRT OR RD OR FMT/ 



EM62: .ASCIZ /RKDB EROR/ 



MD-1 1-CZRKKF, RK11 BASIC LOGIC TEST 2 
C2RKKF.P11 21-FEB-78 08:51 



7494 


027026 


045522 


040504 


044440 


7495 


027034 


041516 


046522 


0521 16 


7496 


027042 


020104 


051127 


0471 17 


7497 


027050 


020107 


047117 


051040 


7498 


027056 


020104 


051 1 17 


051040 


7499 


027064 


020104 


046506 


000124 


7500 










7501 


027072 


045522 


041527 


042040 


7502 


027100 


0421 1 1 


023516 


020124 


7503 


027106 


053117 


043122 


047514 


7504 


0271 14 


047440 


020116 


042122 


7505 


027122 


047440 


020122 


042122 


7506 


027130 


043040 


052115 


000 


7507 










7508 


027135 


122 


041113 


020101 


7509 


027142 


047111 


051103 


0471 15 


7510 


027150 


042124 


053440 


047522 


7511 


027156 


043516 


047440 


0201 16 


7512 


027164 


042122 


047440 


020122 


7513 


027172 


042122 


043040 


052115 


7514 


027200 


000 






7515 










7516 


027201 


11 1 


041516 


051117 


7517 


027206 


042522 


052103 


044040 


7518 


027214 


040505 


042504 


020122 


7519 


027222 


051106 


046517 


023440 


7520 


027230 


042523 


052103 


051117 


7521 


027236 


000047 






7522 










7523 


027240 


040504 


040524 


042440 


7524 


027246 


051122 


051117 


000 


7525 










7526 


027253 


103 


0521 16 


046122. 


7527 


027260 


051040 


054504 


042040 


7528 


027266 


0421 1 1 


023516 


020124 


7529 


027274 


042523 


020124 


0471 17 


7530 


027302 


051040 


027504 


046506 


7531 


027310 


020124 


052123 


051101 


7532 


027316 


044524 


043516 


043040 


7533 


027324 


047522 


0201 15 


042074 


7534 


027332 


045523 


040455 


051 104 


7535 


027340 


051505 


000076 




7536 










7537 


027344 


042510 


047440 


020122 


7538 


027352 


051 105 


020122 


0471 17 


7539 


027360 


051040 


027504 


046506 


7540 


027366 


020124 


052123 


051 101 


7541 


027374 


044524 


043516 


043040 


7542 


027402 


047522 


0201 15 


042074 


7543 


027410 


045523 


040455 


051104 


7544 


027416 


051505 


000076 




7545 










7546 


027422 


051 127 


047117 


020107 


7547 


027430 


051 104 


0531 1 1 


020105 


7548 


027436 


042111 


044440 


020116 


7549 


027444 


045522 


051504 


040440 



MACY11 30A(1052) 21-FEB-7S 0@:5@ PAGE 138 
ERROR MESSAGES 

EM63: .ASCIZ /RKDA INCRMNTD WRONG ON ®0 Q® RD FMT/ 



ESI564: .ASCIZ /RKWC DIDN'T OVRFLO ON RD OR RD FMT/ 



.ASCIZ /RKEA INCRMNTD WRONG ON RD OR RD FMT/ 



EM66: .ASCIZ /INCORRECT HEADER FROM 'SECTOR'/ 



EH67: .ASCIZ /DATA ERROR/ 

EM70J .ASCIZ ffl CNTRL RDY DIDN'T SET ON RD/FMT STARTING FROM <DSK-ADRES> S 



SEQ 0137 



EM71: .ASCIZ "HE OR ERR ON RD/FMT STARTING FROM <DSK-ADRES> ffl 



EM72: .ASCIZ /WRONG DRIVE ID IN RKDS AFTER SEEK/ 



MD-1 1-CZRKKF, RK11 BASIC LOGIC TEST 2 
CZRKKF.P11 21-FEB-78 08:51 



MACY11 30A(1052) 
ERROR MESSAGES 



21-FEB-73 08.58 PAGE 139 



SEQ 0138 



7550 


027452 


052106 


051105 


051440 


7551 


027460 


042505 


000113 




7552 










7553 


027464 


0511 10 


053504 


042522 


7554 


027472 


050040 


046117 


026514 


7555 


027500 


051 104 


020126 


0421 1 1 


7556 


027506 


041040 


052111 


024123 


7557 


027514 


031461 


030455 


024465 


7558 


027522 


051440 


0461 10 


041 104 


7559 


027530 


020105 


046103 


000122 


7560 










7561 


02753S 


0511 10 


053504 


042522 


7562 


027544 


050040 


046117 


026514 


7563 


027552 


0471 1 1 


051124 


05012b 


7564 


027560 


044524 


043516 


042040 


7565 


027566 


044522 


020126 


020043 


7566 


027574 


047516 


020124 


051120 


7567 


027602 


047123 


000124 




7568 










7569 


027606 


051104 


053111 


021440 


7570 


027614 


042040 


0421 1 1 


023516 


7571 


027622 


020124 


047111 


051124 


7572 


027630 


050125 


020124 


043101 


7573 


027636 


042524 


020122 


0511 10 


7574 


027644 


053504 


042522 


050040 


7575 


027652 


0461 17 


000114 




7576 










7577 


027656 


041523 


020120 


044504 


7578 


027664 


047104 


052047 


051440 


7579 


027672 


052105 


040440 


052106 


7580 


027700 


051105 


051440 


042505 


7581 


027706 


0201 13 


040527 


020123 


7582 


027714 


047504 


042516 


000 


7583 










7584 


027721 


122 


042113 


020101 


7585 


027726 


044103 


047101 


042107 


7586 


027734 


040440 


052106 


051105 


7587 


027742 


042040 


044522 


020126 


7588 


027750 


042522 


042523 


000124 


7589 










7590 


027756 


040504 


040524 


042440 


7591 


027764 


047522 


020122 


052101 


7592 


027772 


053440 


051117 


021504 


7593 


030000 


000 






7594 










7595 


030001 


103 


052116 


046122 


7596 


030006 


051040 


054504 


042040 


7597 


030014 


0421 1 1 


023516 


020124 


7598 


030022 


042523 


020124 


043101 


7599 


030030 


042524 


020122 


042122 


7600 


030036 


041440 


045510 


000 


7601 










7602 


030043 


105 


051122 


047440 


7603 


030050 


020122 


042510 


047440 


7604 


030056 


0201 16 


042122 


041440 


7605 


030064 


045510 


000 





EM73S .ASCIZ /HRDWRE POLL-DRV ID BITS(13-15) SHLDBE CLR/ 



.ASCIZ /HRDWRE POLL-INTRUPTING DRIV # NOT PRSNT/ 



.ASCIZ /DRIV # DIDN'T INTRUPT AFTER HRDWRE POLL/ 



.ASCIZ /SCP DIDN'T SET AFTER SEEK WAS DONE/ 



.ASCIZ /RKDA CHANGD AFTER DRIV RESET/ 



ERS100: .ASCIZ /DATA EROR AT WORD*/ 



EM101: .ASCIZ /CNTRL RDY DIDN'T SET AFTER RD CHK/ 



.ASCIZ /ERR OR HE ON RD CHK/ 



MD-11-CZRKKF, RK11 BASIC LOGIC 


TEST 2 


CZRKKF„ 


P11 21-FEB-78 


08:51 




7606 










7607 


030067 


103 


042523 


047440 


7608 


030074 


0201 16 


042122 


041440 


7609 


030102 


045510 


000 




7610 










761 1 


030105 


122 


053513 


020103 


7612 


0301 12 


044504 


047104 


052047 


7613 


030120 


047440 


042526 


043122 


7614 


030126 


047514 


047440 


0201 16 


7615 


030134 


042122 


041440 


045510 


7616 


030142 


047440 


020122 


051127 


7617 


030150 


020124 


044103 


0001 13 


7618 










7619 


030155 


045522 


040504 


044440 


7620 


030164 


041516 


046522 


0521 IS 


7621 


030172 


020104 


051127 


0471 17 


7622 


030200 


020107 


047117 


051040 


7623 


030206 


020104 


044103 


0001 13 


7624 










7625 


030214 


045522 


040502 


041440 


7626 


030222 


040510 


043516 


020104 


7627 


030230 


043101 


042524 


020122 


7628 


030236 


042122 


041440 


045510 


7629 


030244 


000 






7630 










7631 


030245 


115 


046505 


051117 


7632 


030252 


020131 


047527 


042122 


7633 


030260 


041440 


040510 


043516 


7634 


030266 


042105 


040440 


052106 


7635 


030274 


051105 


051040 


020104 


7636 


030302 


044103 


0001 13 




7637 










7638 


030306 


047103 


051124 


0201 14 


7639 


030314 


042122 


020131 


044504 


7640 


030322 


047104 


052047 


051440 


7641 


030330 


052105 


040440 


052106 


7642 


030336 


051 105 


053440 


0S2122 


7643 


030344 


041440 


045510 


000 


7644 










7645 


030351 


110 


020105 


051117 


7646 


030356 


042440 


051122 


047440 


7647 


030364 


020116 


051127 


020124 


7648 


030372 


044103 


000113 




7649 










7650 


030376 


0S1127 


052111 


020105 


76S1 


030404 


044103 


041505 


0201 13 


7652 


030412 


051105 


051117 


000 


7653 










7654 


030417 


122 


042113 


020101 


7655 


030424 


0471 1 1 


051103 


047115 


7656 


030432 


042124 


053440 


047522 


7657 


030440 


043516 


047440 


0201 16 


7658 


030446 


051127 


020124 


0441 CI 


7659 


030454 


000113 






7660 










7661 


030456 


045522 


040502 


044440 



MACY11 30A(1052) 

ERROR MESSAGES 



21-FEB-78 08:58 PAGE 140 



EM 103: .ASCIZ /CSE ON RD CHK/ 

EM104S .ASCIZ /RK&C DIDN'T OVERFLO ON «0 CHK OR WRT CHK/ 

EM105: .ASCII /RKDA INCRMNTD WRONG ON RD CHK/ 

EM1065 .ASCIZ /RKBA CHANGD AFTER RD CHK/ 

EM107S .ASCIZ /MEMORY WORD CHANGED AFTER RD CHK/ 

EM110: .ASCIZ /CNTRL RDY DIDN'T SET AFTER WRT CHK/ 

EM111: .ASCIZ /HE OR ERR ON WRT CHK/ 

EM112: .ASCIZ /WRITE CHECK EROR/ 

EM113: .ASCIZ /RKDA INCRMNTD WRONG ON WRT CHK/ 

EM114: .ASCIZ /RKBA INCRMNTD WRONG ON WRT CHK/ 



MD-11-CZRKKF, R 


K11 BASI 


C LOGIC 


TEST 2 


C2RKKF. 


P11 21-FEB-78 


08:51 




7662 


030464 


041516 


046522 


0521 16 


7663 


030472 


020104 


051127 


0471 17 


7664 


030500 


020107 


047117 


053440 


7665 


030506 


052122 


041440 


045510 


7666 


030514 


000 






7667 










76S8 


030515 


122 


041113 


020101 


7669 


030522 


0471 1 1 


051103 


0471 15 


7670 


030530 


042124 


020054 


044527 


7671 


030536 


044124 


044440 


040502 


7672 


030544 


051440 


052105 


000 


7673 










7674 


030551 


127 


047522 


043516 


7675 


030556 


046440 


046505 


0511 17 


7676 


030564 


020131 


047514 


040503 


7677 


030572 


044524 


04711? 


041440 


7678 


030600 


040510 


043516 


042105 


7679 


03060S 


053440 


052111 


020110 


7680 


030614 


04111 1 


020101 


042523 


7681 


030622 


000124 






7682 










7683 


030624 


045522 


030461 


042040 


7684 


030632 


042111 


023S16 


020124 


7685 


030640 


0471 11 


051124 


050125 


7686 


030646 


020124 


044127 


047105 


7687 


030654 


044440 


042504 


053440 


7688 


030662 


051501 


051440 


052105 


7689 


030670 


000 






7690 










7691 


030671 


122 


030513 


020081 


7692 


030676 


044504 


047104 


052047 


7693 


030704 


044440 


052116 


052522 


76S4 


030712 


052120 


040440 


0521 OS 


7695 


030720 


051105 


051440 


020113 


7896 


030726 


040527 


020123 


0471 11 


7697 


030734 


052111 


040511 


042524 


7698 


030742 


000104 






7699 










7700 


030744 


Q41S23 


020120 


042523 


7701 


030752 


020124 


042502 


047506 


7702 


0307S0 


042522 


051440 


0425QB 


7703 


030766 


0201 13 


047503 


OS011S 


7704 


030774 


042514 


042524 


000104 


7705 










7706 


031002 


045522 


030481 


042040 


7707 


031010 


0421 1 1 


023516 


020124 


7708 


031016 


0471 1 1 


051124 


050125 


7709 


031024 


02 0124 


043101 


042524 


7710 


031032 


020122 


045523 


041440 


7711 


031040 


046517 


046120 


052105 


7712 


031046 


042105 


000 




7713 










7714 


031051 


103 


052116 


046122 


7715 


031056 


051040 


051505 


052105 


7716 


031064 


042040 


042111 


023516 


7717 


031072 


020124 


046103 


040505 



MACY11 30A{1052) 

ERROR MESSAGES 
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EM115: .ASCIZ /RKBA INCRMNTD, WITH IBA SET/ 



EM116: .ASCIZ /WRONG MEMORY LOCATION CHANGED WITH IBA SET/ 



EM117S .ASCIZ /RK11 DiDN'T INTRUPT WHEN IDE WAS SET/ 



E^1205 .ASCIZ /RK11 DIDN'T INTRUPT AFTER SK WAS INITIATED/ 



.ASCIZ /SCP SET BEFORE SEEK COMPLETED/ 



EM122: „ASGIZ /RK1 1 DIDN'T INTRUPT AFTER SK COMPLETED/ 



EM123: .ASCIZ /CNTRL RESET DIDN'T CLEAR 'SCP'/ 



MD-11-CZRKKF, R 


K11 BASI 


C LOGIC 


TEST 2 


CZRKKF. 


P11 21-FEB-78 


08:51 




7718 


031100 


020122 


051447 


050103 


7719 


031 106 


000047 






7720 










7721 


031110 


045522 


030461 


042040 


7722 


031116 


0421 11 


023516 


020124 


7723 


031 124 


0471 1 1 


051124 


050125 


7724 


031132 


020124 


043101 


042524 


7725 


031 140 


020122 


042122 


042040 


7726 


031146 


0471 17 


000105 




7727 










7728 


031152 


047103 


051 124 


020114 


7729 


031 160 


042522 


042523 


020124 


7730 


031166 


044504 


047104 


052047 


7731 


031174 


041440 


051 114 


051040 


7732 


031202 


043505 


05151 1 


051124 


7733 


031210 


000 






7734 










7735 


03121 1 


122 


030513 


020061 


7736 


031216 


044504 


047104 


052047 


7737 


031224 


044440 


052116 


052522 


7738 


031232 


052120 


040440 


020124 


7739 


031240 


050103 


020125 


042514 


7740 


031246 


042526 


000114 




7741 










7742 


031252 


045522 


030461 


044440 


7743 


031260 


052116 


052522 


052120 


7744 


031266 


042105 


040440 


020124 


7745 


031274 


051127 


047117 


020107 


7746 


031302 


050103 


020125 


042514 


7747 


031310 


042526 


000114 




7748 










7749 


031314 


042447 


051122 


041040 


7750 


031322 


0521 1 1 


020047 


044504 


7751 


031330 


047104 


052047 


051440 


7752 


031336 


052105 


044440 


0201 16 


7753 


031344 


045522 


051105 


000 


7754 










7755 


031351 


110 


020105 


051117 


7756 


031356 


042440 


051122 


042040 


7757 


031364 


0421 11 


023516 


020124 


7758 


031372 


042523 


000124 




7759 










7760 


031376 


045522 


051105 


042440 


7761 


031404 


047522 


000122 




7762 










7763 


031410 


054116 


020103 


044502 


7764 


031416 


020124 


044504 


047104 


7765 


031424 


052047 


051440 


052105 


7766 


031432 


000 






7767 










7768 


031433 


122 


030513 


020061 


7769 


031440 


044504 


047104 


05204- 


7770 


031446 


044440 


052116 


052522 


7771 


031454 


052120 


047440 


0201 16 


7772 


031462 


047523 


052106 


042440 


7773 


031470 


047522 


000122 
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EM124: .ASCIZ /RK11 DIDN'T INTRUPT AFTER RD DONE/ 



EM125: .ASCIZ /CNTRL RESET DIDN'T CLR REGISTR/ 



EM126: .ASCIZ /RK11 DIDN'T INTRUPT AT CPU LEVEL/ 



EM127; .ASCIZ /RK11 INTRUPTED AT WRONG CPU LEVEL/ 



EM130*. .ASCIZ /'ERR BIT' DIDN'T SET IN RKER/ 



EM131: .ASCIZ /HE OR ERR DIDN'T SET/ 



EM132: .ASCIZ /RKER EROR/ 

EM133: .ASCIZ /NXC BIT DIDN'T SET/ 



EM134: .ASCIZ /RK11 DIDN'T INTRUPT ON SOFT EROR/ 



MD-1 1-CZRKKF, 
CZRKKF. P1 1 
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7774 
7775 
7776 
7777 
7778 
7779 
7780 
7781 
7782 
7783 
7784 
7785 
7786 
7787 
7788 
7789 
7790 
7791 
7792 
7793 
7794 
7795 
7796 
7797 
7798 
7799 
7800 
7801 
7802 
7803 
7804 
7805 
7806 
7807 
7808 
7809 
7810 
7811 
7812 
7813 
7814 
7815 
7816 
7817 
7818 
7819 
7820 
7821 
7822 
7823 
7824 
7825 
7826 
7827 
7828 
7829 



031474 042515 020130 044502 EM135: 

031502 051524 044440 041516 

031510 046522 052116 020104 

031516 051127 047117 026507 

031524 045522 051503 000 



031531 127 051520 
031536 052117 041440 
031544 051101 000 



031547 
031554 
031562 
031570 
031576 
031604 
031612 

031516 
031624 
031632 
031640 
031646 
031654 
031662 
031670 
031676 
031704 
031712 
031720 



031732 
031740 



031742 
031750 



104 
051105 
0201 16 
043123 
047522 
045523 
052124 

042047 
023443 
042523 
052502 
020124 
040503 
047040 
054523 
052117 
040510 
020106 
043065 



052101 
051 117 
051124 
051105 
020115 
052040 
000131 

044522 
050040 
052116 
020124 
047111 
042524 
020117 
047440 
042510 
043114 
045522 
000 



031724 001116 



0011 16 
000000 



001 116 
001 166 



001162 
001162 



001162 
001170 



031756 001116 000000 



031762 
031770 

031774 
032002 
032010 



001116 
001166 

001 116 
001166 
001174 



001162 
000000 

001162 
001170 
001176 



047040 
042514 



020101 
047440 
047101 
043040 
044504 
0201 17 



020126 
042522 
020054 
047516 
044504 
000104 
052502 
0201 16 
020122 
047440 
030055 



EM137I 



.ASCIZ /MEX BITS INCRMNTD WRONG-RKCS/ 



.ASCIZ /WPS NOT CLEAR/ 



EM140: .ASCIZ /DATA EROR ON TRANSFER FROM DISK TO TTY/ 



.ASCIZ /'DRIV #' PRESENT, BUT NOT INDICATED/ 



.ASCIZ / NO BUSY ON OTHER HALF OF RK-05F/ 



000000 DT1: 
001164 DT2: 



001164 DT20: 
000000 



001164 DT26; 



001164 DT54: 

001172 

001200 



EVEN 

SBTTL ERROR DATA POINTERS 

WORD SERRPC, $REG0,0 

$REG0,$REG1 ,0 



WORD SERRPC 

WORD SERRPC 

WORD SERRPC 

WORD SERRPC 

WORD SERRPC 



$REG0,$REG1 ,SREG2,SREG3,0 



$REG0,$REG1 ,SREG2,0 
$REG0,$REG1,$REG2,$REG3,$REG4,$REG5,$REG6,$R£G7.0 
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7830 

7831 

7832 

7833 

7834 

7835 

7836 

7837 

7838 

7839 

7840 

7841 

7842 

7843 

7844 

7845 

7846 

7847 

7848 

7849 

7850 

7851 

7852 

7853 

7054 

7855 

7856 

7857 

7858 

7859 

7860 

7861 

7862 

7863 

7864 

7865 

7866 

7867 

7868 

7869 

7870 

7871 

7872 

7873 

7874 

7875 

7876 

7877 

7878 

7879 

7880 

7881 

7882 

7883 

7884 

7885 



032016 000000 



032020 020040 041520 

032026 051040 043505 

032034 020104 020040 

032042 041505 042126 

032047 040 050040 

032054 020040 042440 

032062 052103 020040 

032070 041505 042126 



020040 DH2: 
042101 
051040 
000 



032075 
032102 
032110 

0321 13 
032120 
032126 
032134 
032142 



040 
020040 
042126 

040 
020040 
020123 
042513 
051040 



050040 

051040 
000 

050040 
051040 
020040 
020122 
053513 



020103 

050130 

051040 

000 

020103 

041505 



020103 
041513 

051040 
020040 
000103 



032150 020040 041520 



032155 
032162 
032170 
032176 
032204 
032212 



040 
020040 

051503 

045522 

020040 

000 



050040 
020040 
020040 
051105 
045522 



032213 040 050040 

032220 020040 020040 
032226 051504 000 



032231 

032236 
032244 

032251 

032256 
032264 
032272 
032300 

032301 
032306 
032314 
032322 

032327 



040 050040 

020040 042523 

047103 051124 

040 050040 

020040 020040 

047123 020124 

052130 041455 

000 



040 
020040 
047524 
045522 



050040 
051440 
020122 
051504 



DH4J 



020103 
045522 
020040 
020040 
051504 



020103 DH34: 
045522 



020103 

026503 

000 

020103 
051120 
047040 
052116 



020103 
041505 

020040 
000 



.SBTTL ERROR HEADERS 

.ASCIZ / PC REGADD RECVD/ 

.ASCIZ / PC EXPCT RECVD/ 

.ASCIZ / PC RECVD/ 

.ASCIZ / PC RKCS RKER RKWC/ 



.ASCIZ / PC/ 

.ASCIZ / PC RKCS RKER RKDS/ 



.ASCIZ / PC RKDS/ 

.ASCIZ / PC SEC-CNTR/ 

.ASCIZ / PC PRSNT NXT-CNT/ 

.ASCIZ / PC SECTOR RKDS/ 



040 050040 020103 QH44: .ASCIZ / PC RKCS RKER RKDS RKDA/ 
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7886 


032334 


020040 


051040 


041513 


7887 


032342 


020123 


020040 


051040 


7888 


032350 


042513 


020122 


020040 


7889 


032356 


051040 


0421 13 


020123 


7890 


032364 


020040 


051040 


0421 13 


7891 


032372 


000101 






7892 










7893 


032374 


020040 


041520 


020040 DH54: 


7894 


032402 


020040 


045522 


051503 


7895 


032410 


020040 


020040 


045522 


7896 


032416 


051105 


020040 


020040 


7897 


032424 


045522 


051504 


020040 


7898 


032432 


020040 


045522 


040504 


7899 


032440 


020040 


042040 


05312^ 


7900 


032446 


027043 


027056 


041456 


7901 


032454 


046131 


036056 


051504 


7902 


082462 


026513 


042101 


051522 


7903 


032470 


027076 


052523 


027122 


7904 


032476 


051456 


041505 


000 


7905 










7906 


032503 


040 


041520 


020040 DH56: 


7907 


032510 


054105 


041520 


020072 


7908 


032516 


051 104 


020043 


020040 


7909 


032524 


054503 


020114 


020040 


7910 


032532 


020040 


052523 


020122 


7911 


032540 


020040 


051440 


041505 


7912 


032546 


020040 


042522 


053103 


7913 


032554 


020072 


051104 


020043 


7914 


032562 


020040 


054503 


0201 14 


7915 


032570 


020040 


020040 


052523 


7916 


032576 


020122 


020040 


020040 


7917 


032604 


042523 


000103 




7918 










7919 


032610 


020040 


041520 


020040 DH64: 


7920 


032616 


020040 


045522 


041527 


7921 


032624 


020040 


051040 


0421 13 


7922 


032632 


000101 






7923 










7924 


032634 


020040 


041520 


020040 DH66: 


7925 


032642 


020040 


042523 


052103 


7926 


032650 


020122 


020040 


054105 


7927 


032656 


041520 


020124 


020040 


7928 


C32664 


042522 


053103 


000104 


7929 










7930 


032672 


020040 


041520 


020040 DH67J 


7931 


032700 


020040 


054105 


041520 


7932 


032706 


020124 


020040 


042522 


7933 


032714 


053103 


020104 


042040 


7934 


032722 


045523 


040455 


051104 


7935 


032730 


000123 






7936 










7937 


032732 


020040 


041520 


02004C DH74S 


7938 


032740 


020040 


020040 


051104 


7933 


032746 


0531 11 


021440 


000 


7940 










7941 


032753 


040 


050040 


020103 QH100 



.ASCIZ / PC 



SEO 0144 



RKDA DRV# CYL.<DSK-ADRS>.SUR..SEG/ 



.ASCIZ / PC EXPCS DR# CYL 



SEC RECV5 DR# 



.ASCIZ / PC 



.ASCIZ / PC 



.ASCIZ / PC 



.ASCIZ / PC 



RKWC RKDA/ 



SECTR EXPCT RECVD/ 



EXPCT RECVD DSK-ADRS/ 



.ASCIZ / PC WORD # EXPCT RECVD/ 
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7942 


032760 


053440 


051117 


020104 








7943 


032766 


020043 


020040 


0541 05 








7944 


032774 


041520 


020124 


020040 








7945 


033002 


042522 


053103 


000104 








7945 
















7947 


033010 


020040 


041520 


020040 


DH103: 


.ASCIZ 


/ 


7948 


033016 


051040 


042513 


000122 








7949 
















795C 


033024 


020040 


041520 


020040 


DH104: 


.ASCIZ 


/ 


7951 


033032 


051040 


041505 


042126 








7952 


033040 


020040 


051040 


041513 








7953 


033046 


000123 












7954 
7955 


033050 


020040 


041520 


020040 


DH107: 


.ASCIZ 


/ 


7956 


033056 


020040 


046040 


041517 








7957 


033064 


020040 


020040 


054105 








7958 


033072 


041520 


020124 


020040 








7959 


033100 


042522 


053103 


000104 








7960 
7961 


033106 


020040 


041520 


020040 


DH117: 


•ASCIZ 


/ 


7962 


0331 14 


051040 


041513 


000123 








7963 
7964 


033122 


020040 


041520 


020040 


DH126: 


.ASCIZ 


/ 


7965 


033130 


020040 


042514 


042526 








7966 


033136 


0201 14 


020040 


051040 








7967 


033144 


041513 


000123 










7968 
















7969 


033150 


020040 


041520 


020040 


DH130: 


.ASCIZ 


/ 


7970 


033155 


020040 


051040 


041513 








7971 


033164 


020123 


020040 


051040 








7972 


033172 


042513 


020122 


042440 








7973 


033200 


051122 


041040 


052111 








7974 


033206 


000 












7975 
















7976 


033207 


040 


050040 


020103 


DH131 : 


.ASCIZ 


/ 


7977 


033214 


020040 


020040 


045522 








7978 


C33222 


051503 


020040 


020040 








7979 


033230 


045522 


051105 


000 








7980 
















7981 


033235 


040 


050040 


020103 


DH133: 


.ASCIZ 


/ 


7982 


033242 


020040 


020040 


045522 








7983 


033250 


051503 


020040 


020040 








7984 


033256 


045522 


051105 


020040 








7985 


033264 


020040 


045522 


040504 








7986 


033272 


000 












7987 
















7988 


033273 


040 


050040 


020103 


DH140: 


.ASCIZ 


/ 


7989 


033300 


020040 


042440 


050130 








7990 


033306 


052103 


020040 


051040 








7991 


033314 


041505 


042126 


020040 








7992 


033322 


020040 


045522 


040502 








7993 


033330 


020040 


020040 


045522 








7994 


033336 


051503 


000 










7995 
















7996 
















7997 




033342 








.EVEN 
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RKER/ 

RECVD RKCS/ 



EXPCT RECVD/ 



8KCS/ 
LEVEL 



RKER ERR BIT/ 



RKER/ 



RKDA/ 



EXPCT RECVD 
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CZRKKF .P1 1 



21-FEB-78 08:51 



7993 

7999 

8000 033342 000400 

8001 

8002 

8003 

8004 000001 



ERROR HEADERS 
;DATA BUFFER 
OUTBUF: .BLKW 256. 



THIS 256 WORD BUFFER IS FOR 
DATA TRANSFERS FROM AND 
TO THE DISK. 
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SEO 0147 



BADINT 


004600 


3ADTM0 


004534 


3DAR 


021074 


BDAO 


021056 


3DA4 


021066 


B I T = 


000001 


SI TOO = 


000001 


BIT01 = 


000002 


BIT02 = 


000004 


B1T03 = 


000010 


BIT04 s 


000020 


BIT05 = 


000040 


BIT06 a 


000100 


BIT07 s 


000200 


BIT08 * 


000400 


BIT09 b 


001000 


BIT1 b 


000002 


B1T10 = 


002000 


BIT11 « 


004000 


BIT12 « 


010000 


BIT13 s= 


020000 


BIT14 a 


040000 


Bins s 


100000 


BIT2 « 


000004 


BIT3 « 


000010 


BIT4 = 


000020 


BIT5 ■ 


000040 


BITS ■ 


000100 


B1T7 * 


000200 


BIT8 * 


000400 


BIT9 . 


001000 


BPTVEC® 


000014 


8RKDA0® 


104415 


BRKDA4^ 


104416 


BTEOP 


020028 


CHS1 


021242 


CHKCCL 


021402 


CHKCRDb 


104412 


CHKDA 


021262 


CHKDA1 


021270 


CHKECL 


0213S6 


CHKER 


021342 


CHKHE 


021234 


CHKHE1 


021226 


CHKWC 


021316 


CH.CRD 


021760 


CKSWR 3 


104407 


CNT.RD* 


104414 


CNT.RE* 


104413 



CN.RDY 022032 
CN.RST 022014 



2108 
2043 
6182 
618Q0 
61840 
9930 
9830 
9820 
9810 
9800 
9790 
9780 
977* 
9760 
9750 
9740 
9920 
9730 
9720 
9710 
9700 
9690 
9680 
991 ^ 
9900 
9890 
9880 
987* 
9860 
9850 
9840 
10000 
3697 
2834 
5693 
58200 
6262 
4987 
2612 
284? 
3175 
4983 
2361 
2840 
3186 
2851 
65220 
6610 
3967 
2310 
3128 
4489 
5189 
5876 
6561 
6559* 



2136# 

2106 

61870 

7215 

7218 

2002 

993 

992 

991 

990 

989 

988 

987 

986 

935 

984 



6640 
6723 
590 B 
661 1 
2001 



6288 

2930 

5709 

6731 

82850 

5055 

2672 

2942 

32G5 

5051 

2957 

2936 

3377 

2947 

7210 

6672 

4025 

2357 

3221 

4596 

5226 

72120 

65620 

7212 



4643 
21170 



6625 
6633 



72160 
3032 

6268 



S124 
3925 
304S 
3395 
5120 
3059 
3039 
3552 
3049 

6695 
4043 
2394 
3345 
4662 
5259 
7275 
7214 



4688 
5657 



3160 

6291 



S203 
4334 
4206 
3559 
5199 
3293 
3256 
3687 
3278 

72060 

4092 

2446 

3452 

4748 

5276 



4707 
5661 



3249 
72180 



§364 

4428 

6282* 

62840 

5286 

4210 

4187 

3833 

3726 



5021 
2531 
3508 
4769 
5305 



3370 



5430 
§243 



5360 

4808 

4527 

6261$ 

4202 



5321 

2566 
3637 

4847 
5350 



63400 
5410 



5426 

63160 

62640 



6393 72140 

2598 2656 

3792 3906 

4927 4973 

5380 5425 



7284 
2722 
4003 
5004 
5448 



7286 
2776 
4120 
5041 
5513 



2895 2996 3098 

4234 4308 4397 

50 70 5110 5139 

5587 5667 5754 
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CROSS REFERENCE TABLE — USER SYMBOLS 



SEQ 0148 



COUNT 


001362 


1 135* 


3410* 


3414* 


3520* 


3S33* 


4516* 


4519* 


5221* 


5264* 










C0UNT1 


001364 


1136* 


8390* 


6405* 






















CR 


000015 


908* 


6842 


6852 






















CRETRN 


021430 


6266 


6285 


6303 


6317 


6330 


6341 


63460 














CRLF « 


000200 


909* 


1884 


6813 


6852 




















DDISP - 


177570 


91S# 


1057 


1855 






















DDPCH 


001410 


11560 


1885 


1905 


1912* 


1914 


1916* 


1920 


1929 


1941 


2197 


21 39 


£275 


2284 


DELAY = 


104417 


2342 


5155 


5166 


5584 


72200 


















DELA.Y 


021664 


64560 


7220 
























DH100 


032753 


1565 


1663 


79410 






















DH103 


033010 


1586 


79470 
























DH104 


033024 


1593 


79500 
























DH107 


033050 


1614 


79550 
























DH1 17 


C33106 


1551 


1670 


1677 


1684 


1698 


1705 


79610 














DH126 


033122 


1719 


1726 


79640 






















DH130 


033150 


1733 


79690 
























DH1 31 


033207 


1741 


1762 


79760 






















DH133 


033235 


1755 


79810 
























DH14 


0321 13 


1248 


1776 


78510 






















DH140 


033273 


1790 


79880 
























DH2 


032020 


1712 


78370 
























DH21 


032150 


1346 


78570 
























DH30 


032155 


1269 


1276 


1367 


1381 


1402 


1452 


1579 


1628 


1635 


1691 


78590 






DH34 


032213 


1262 


1283 


1297 


1332 


1530 


78660 
















DH35 


032231 


1304 


78700 
























DH36 


032251 


1311 


78740 
























DH4 


032047 


1255 

1649 


1318 
1656 


1339 
1748 


1374 
1769 


1395 
1805 


1445 
78420 


14S9 


1482 


1523 


1558 


1600 


1607 


1842 


DH40 


032301 


1325 


78800 
























DH44 


032327 


1241 


1290 


1353 


1360 


1388 


1572 


1621 


1783 


78850 










DH5 


032075 


1438 


78470 
























DH54 


032374 


1410 


1420 


1504 


1514 


78930 


















0H56 


032503 


1429 


1466 


79080 






















DH64 


032610 


1475 


79190 
























DH66 


032634 


1489 


79240 
























DH67 


032672 


1496 


79300 
























DH74 


032732 


1537 


1544 


1798 


79370 




















DISPLA 


001142 


1057$ 


1855* 


1863* 


6654* 


6675* 


















DISPRE 


000174 


10150 


1863 
























PRESET 


021504 


2734 


4674 


4991 


5260 


5818 


63900 


6428 


7273 


7291 










DRHOLD 


02S302 


7276* 


7285 


7290 


72940 




















DRIVAD 


001350 


11270 


2104* 


2272* 


2277 


2289 


2321 


2367 


2404 


2416 


2456 


2541 


2567 


2610 






2669 


2738 


2818 


2833 


2913 


2929 


3015 


3031 


3068 


3123 


3236 


3248 


3262 






3332 


3505 


3620 


3784 


3920 


4015 


4161 


4178 


4254 


4264 


4326 


4356 


4419 






4454 


451 1 


4522 


4549 


4673 


4727 


4730 


4749 


4785 


4862 


4939 


5017 


5086 






5222 


5316 


5407 


5465 


5530 


5599 


568^ 


5757 


5823* 


6264 


6282 


6360 


8391 






6425 


6716 


6725 


7276 


7277 


7279* 


7281* 


7282 


7290* 


7295* 


7307* 






DRIVS 


001412 


1 1 5S# 
6729* 


1959 


1996* 


2011* 


2047* 


2068* 


2077 


2097 


2237* 


2265 


5820 


5862 


671 1 


DRIVO 


001414 


11700 


1973 


2050 


2101 


2194 


2232 


2234 


2297 


5851 


5891 


6719 


7296 




DRIV1 


001416 


11710 


























DRIV2 


001420 


11720 


























DRIV3 


001422 


11730 


























DRIV4 


001424 


1 1740 


























DRIV5 


001426 


11750 


























DRIV6 


001430 


11760 
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DRIV7 


001432 


DRVDON 


001352 


DRVPTR 


001354 


OSWR » 


177570 


DT1 


031724 


DT2 


031732 


DT20 


031742 


DT21 


031756 


DT26 


031762 


DT54 


031774 


EFLG1 


001370 


EMTVEC= 


000030 


EM 100 


027756 


EM 1 1 


030001 


EM102 


030043 


EM 103 


030067 


EM104 


030105 


EM 105 


030156 


EM 106 


030214 


EM 107 


030245 


EM1 1 


025370 


EM 110 


030306 


EM1 1 1 


030351 


EM 11 2 


030376 


EM1 13 


030417 


EM1 14 


030456 


EM1 15 


030515 


EM1 16 


030551 


EM117 


030624 


EM12 


025402 


EM 120 


030671 


EM121 


030744 


EM 122 


031002 


EM 123 


031051 


EMI 24 


031 1 10 


EM125 


031152 


EM 126 


031211 


EM1 27 


031252 


EM13 


025415 


EM 130 


031314 


EM131 


031351 


EM 132 


031376 


EM1 33 


031^10 


EM 134 


031433 


EM 135 


031474 


EM 137 


031531 


EM 140 


031547 


EM141 


031616 


EM142 


031662 


EM16 


025427 


EM21 


025456 


EM30 


025470 



1 1770 


5859 


7308 






















11280 


2102* 


5816* 


5820 




















11310 


2101* 


2268 


2286* 


6714 


















9140 
1263 


1056 
1284 


1854 
1298 


1305 


1333 


1439 


1538 


1545 


1552 


1587 


1671 


1678 


1685 


1699 
1256 

1559 


1706 
1312 
1594 


1799 
1319 
1601 


78140 

1326 

1608 


1340 
1643 


1375 
1650 


1396 
1657 


1446 
1713 


1460 
1720 


1476 
1727 


1483 
1742 


1524 
1749 


1531 
1763 


1770 


1806 


78160 






















1242 


1291 


1354 


1361 


1389 


1573 


1622 


1784 


1791 


78190 








1347 
1 249 


78220 
1270 


1277 


1368 


1382 


1403 


1453 


1490 


1497 


1566 


1L30 


1615 


1629 


1636 


1664 


1692 


1734 


1756 


1777 


78240 














1412 


1422 


1431 


1468 


1506 


1516 


78270 














11380 


3408* 


3429* 


3629* 


3633* 


3655 


3706 














10030 


1839* 


1840* 






















1564 


7590# 
























1571 


75950 
























1578 


76020 
























1585 


76070 
























1592 


761 10 
























1599 


76190 
























1606 


76250 
























1613 


76310 
























1804 


73160 
























1620 


1775 


76380 






















1627 


76450 
























1634 


76500 
























1641 


76540 
























1648 


76610 
























1655 


76680 
























1662 


76740 
























1669 


7683* 
























1240 


73200 
























1676 


76910 
























1683 


77000 
























1690 


77060 
























1697 


77140 
























1704 


77210 
























1711 


77280 
























1718 


77350 
























1725 


77420 
























1338 


73230 
























1732 


77490 
























1740 


77550 
























1747 


77600 
























1754 


77630 
























1761 


77680 
























1768 


77750 
























1782 


77810 
























1789 


77850 
























1797 


77930 
























1809 


77990 
























1254 


73260 
























1261 


73310 
























1268 


73340 
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SEO 0150 



EM31 


025500 


1275 


73370 
























EM32 


025510 


1282 


73400 
























EM33 


025531 


1289 


73440 
























EM34 


025551 


1296 


73480 
























EM35 


025570 


1303 


73520 
























EM36 


025623 


1310 


73580 
























EM37 


025653 


1317 


73640 
























EM40 


025707 


1324 


73700 
























EM41 


025747 


1331 


73770 
























EM43 


026004 


1345 


2143 


73830 






















EM44 


026036 


1352 


73890 
























EM45 


026112 


1359 


73980 
























EM46 


026160 


1366 


74060 
























EM4 7 


026216 


1373 


741 2,* 
























EM50 


026260 


1380 


74190 
























EM51 


026307 


1387 


74240 
























EM52 


026362 


1394 


74330 
























EM53 


026407 


1401 


74380 
























EM54 


026452 


1408 


74450 
























EM55 


026544 


1418 


74560 
























EM56 


026623 


1428 


74650 
























EM57 


026662 


1437 


74720 
























EM60 


026720 


1444 


74780 
























EM61 


026757 


1451 


74850 
























EM62 


027014 


1458 


74910 
























EM63 


027026 


1465 


74940 
























EM64 


027072 


1474 


75010 
























EM65 


027135 


1481 


75080 
























EM66 


027201 


1488 


75160 
























EM67 


027240 


1495 


75230 
























EM70 


027253 


1247 


1502 


75260 






















EM71 


027344 


1512 


75370 
























EM 7 2 


027422 


1522 


75460 
























EM73 


027464 


1529 


75530 
























EM74 


027536 


1536 


75610 
























EM75 


027606 


1543 


75690 
























EM76 


027656 


1550 


75770 
























EM77 


027721 


1557 


75840 
























ERRVEC= 


000004 


9960 


1852 


1853* 


1864* 


1892 


1893* 


1901* 


6616 


6617* 


6619* 


6622* 






FCHECK 


025160 


5801 


72730 


7301 






















FFLAG 


001404 


11520 


2291* 


2303* 


5799 




















FTITLE 


001346 


11260 


























GNS 


****** u 


1014 


1883 


1926 


1938 


1947 


1951 


1966 


1990 


2122 


2147 


2301 


6151 


6435 






6573 


6581 


7198 


7199 


7200 


7201 


7202 


7204 


7206 


7207 


7208 


7210 


7212 






7214 


7216 


7218 


7220 


7222 


7224 
















GTSWR * 


104406 


1878 


72040 
























GT2RG 


021010 


4956 

5346 


4963 

5416 


4969 

5422 


5030 
5541 


5037 
61320 


5092 


5100 


5106 


5170 


5186 


5251 


5272 


5331 


GT3RG 


021002 


2335 
4425 


2371 
4435 


2701 
4440 


2746 
4709 


2823 

61310 


291® 
6319 


3020 


3547 


3681 


3829 


4167 


4332 


4341 


GT4RG 


020774 


2222 


2382 


2407 


2580 


2626 


2632 


2637 


2683 


2687 


2696 


2832 


2928 


3030 
4263 






3157 


3247 


3368 


3536 


3667 


3817 


3936 


3941 


3945 


4068 


4 'J 74 


4177 






4521 


5691 


5707 


5925 


61300 


6267 


6407 


6527 












HT 


000011 


9060 


6811 


6852 




















5765 


INDX1 


001356 


11330 


2458* 


2467* 


3618* 


3735 


3737* 


3743® 


3804* 


3814* 


3898* 


3977 


3982* 






5867* 


5886 


6027 


6029* 
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1NDX2 0013S0 
lOTVECs* 000020 



LF s 


000012 


MSG1 


001216 


MSG2 


001236 


?*1SG3 


001245 


MSG4 


001272 


■VISG5 


001303 


MSG6 


001315 


NUDRV 


005040 


ODOEVN 


001406 


0UT8UF 


033342 



PPSYRT 


004702 


PHYDRV 


001438 


P1RQ • 


177772 


PIRQVE® 


000240 


PRO » 


000000 


PR1 ■ 


000040 


PR2 « 


000100 


PRS 


000140 


PR4 a 


000200 


PRS ■ 


000240 


PRS » 


000300 


PR7 ■ 


000340 


PS ■ 


177776 


PSW 


177776 


PWRVEC* 


000024 


RDCHR = 


104410 


RDLIN » 


10441 1 


RESVEC- 


C00010 


RKBA 


00133S 


RKCS 


001332 



RKDB 

RKDS 


001342 
001326 


RKER 


001330 


RKPRI 


001400 



1134* 
1 001 ^ 

907# 

1084# 

1088# 

10910 

1096# 

10990 

1 102# 

2250* 

1 1S3# 

27S8 

3272 

4160 

4462 

5525* 

21740 

1180* 

013# 

10070 

930# 

931^ 

932# 

933# 

934# 

935ft' 

9360 

937# 

910# 

91 1 # 

1Q02# 

7113 

1968 

997# 
1116# 
4020* 
4784 
1114# 
3331 
4320 
5088 
6265 

I 1 17# 
2610* 
3699 
4419* 
5241* 
5697* 
1118# 
1112* 
2457 
4051 
6426 

I I 13# 
5414 

1 144# 



2465* 

1837* 

6846 

2045 

2080 

6570 

2288 

6710 

6728 

5824 

5861* 

2813 

3274 

4247 

4464 

5S32 

7264 

S8S0* 
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2469* 3652* 3664* 5781* 5872* 5954 

1838* 

6852 



SE9 0151 



1843* 
7207* 
7208# 

2815 

4086* 

4943* 

2327* 

3529* 

4409 

5151 

6340 

1818* 

2669* 

3808* 

4456 

5252 

5757* 

3084 

1820 

2505 

4273 

7287 

2699 

5476 

1897* 



5910 
28S5 
3334 
4253 
4503 
S677 

S8S4* 



1894 

1844* 



2908 

4160* 

5085* 

2608 

3531 

4501 

5220 

8342 

2042 

2738* 

3922* 

4459 

5316* 

5928* 

3087 

2041 

2542 

4540 

3902 
5480 
4865 



5913 
2857 
3409 
4277 
478© 
5893 

B981 



3010 

4195 

5319* 

2668 

3660* 

4612 

5315 

6343 

2051* 

2739* 

3957 

451 1* 

5317* 

6130 

3099 

2063 

2569 

4725 

4344 
5623 
5945 



6055* 

2909 

3521* 

4324* 

4829 



3146* 

4198 

5406* 

2741* 

3662 

4672 

5379 

8392* 

2052 

2818* 

3960 

4673* 

5407* 

6284 

3101 

2202 

2619 

4750 

4346 

5629 
6487 



60SS 
2951 
3525 
4327 
4831 
5962 



323S* 

4253* 

5467* 

2814 

3810* 

4782 

5460 

6523 

2201* 

2913* 

3963* 

4680* 

5^68* 

6290 

3102 

2320 

2630 

4752 

4438 
6132 



29B3 
3651 
4365 
4943 
6013 



3272 

4323 

5532* 

2907 

3812 

4861 

5537* 

6559* 

2321* 

3015* 

4018* 

4749* 

5486 

6306 

3181 

2345 

2679 

5157 

4961 
6316 



3011 
3781 
4367 
5319 
8O0Q# 



7241* 7247® 7259* 



3275 

4418* 

5600* 

3008 

3900 

4946* 

5566* 

6563 

2367* 

3122 

4073 

4783 

5491 

6360* 

3186 

2368 

2685 

5965 

5016 
6329 



30S3 
3964 
4372 
S332 



3358* 

4462 

5678 

3120 

4002 

4949 

5579 

6583 

2404* 

3235 

4081 

4862* 

5533* 

6391* 

3462 

2377 

2740 

5983 

5098 
6331 



3055 
3988 
4378 
S4SS® 



3525* 

4465 

5751 

3152 

4132 

4967 

5666 

7283* 

2416* 

3357* 

4087* 

4944* 

5551 

6425* 

3464 

2380 

3545 

6131 

5168 
6332 



3141* 3146 3237 

3972 4014 414? 

4380 4411 441 8 

S408 B461* §487 



3653* 
4510* 

3233 

4172 

5019* 

5758* 

2456* 

3527* 

4161* 

5017* 

5556 

7282* 

3465 

2405 

3679 

6362 

5249 



3805* 
4534 

3240* 
4256* 
5035 

5866 

2544* 

3658* 

4254* 

5086* 

5599* 

7285* 

3854 

2418 

3827 

6366 

5328 



3984* 
4537 

3242 
4258 
5083 
6133 

2567* 

3694 
4322 
5154* 
5683* 

3857 
2422 
3901 
6399 

5339 
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RKVEC 




001402 


RKWC 




001334 


SEEKO 




001372 


SEEK1 




001374 


SEEK2 




001376 


SriFTRT 




021200 


SIMUL 




001344 


SIZEF 




025304 


SIZYET 




001440 


STACK 


= 


001100 


START 




002636 


STARTA 




002704 


START1 




003334 


STKLMT 


s 


177774 


ST2 




00373S 


ST3 




004262 


5T4 




QQ44SS 


SWR 




0Q114Q 


SWREG 




000176 


swo 


a 


000001 


swoo 


E 


000001 


SW01 


B 


000002 


SW02 


S 


000004 


SW03 


K 


000010 


SW04 


S 


000020 


SW05 


* 


000040 


SW06 


= 


000100 


SW07 


a 


000200 


SW08 


a 


000400 


SW09 


B 


001000 


SW1 


3 


000002 


SW10 


S 


002000 


SW11 


S 


004000 


5W12 


a 


C10000 


SW13 


3 


020000 


SW14 


s 


040000 


SW15 


a 


100000 


Sw2 


a 


000004 


SW3 


s 


000010 


SW4 


= 


000020 


SW5 


s 


OOC040 


SW6 


s 


000100 


SW7 


s 


000200 


SW8 


S 


000400 


SW9 


a 


001000 


TBITVE= 


C00014 


TIMER 




001366 


TKVEC 


a 


000060 


TPVEC 


a 


000064 


TRAPVEs 


000034 


TRTVEC® 


000014 



1149# 

4869 
1 1 15# 
4159* 
5405* 
1 141# 
1 142# 
1143# 
2290 
11250 
5849 
1 181# 
901# 
1018 
1817 
1891 

9120 

1911 

1922 

2031 

1Q56# 

6611 

7252* 

1016* 

965# 

955# 

9540 

953# 

952# 

9510 

950# 

9490 

948# 

947# 

946# 

964# 

9450 

944i¥ 

943# 

942# 

941# 

940* 

963# 

962# 

961# 

960# 

959# 

958# 

957# 

956# 

9980 

1137# 

1005^ 

1006# 

1004# 

999* 



2108* 

4895* 
2817* 
4252* 
5468* 
3896 

3980 

4731 

2030* 

7295# 

2027* 

1835 

1814# 

1821 

190S# 

1935 
1933 
2034 
1833 
6625 

1862 

965 
964 
S53 
962 
961 
960 
959 
358 
957 
956 

2028 

6696 
6431 



4613 

4904* 

2912* 

4321 

5531* 

3985 



4734 

2033* 



2127 
1828$ 



1959$ 

20390 

2078 

1854* 

6627 

1876 



4631* 

5534 

3014* 

4417* 

5598* 



5999 
3335 



5847* 

2164 



2081 
1856 
6633 



4643* 4677 

5548* 5942 

3148* 3239* 

4448 4450 

5680* 5696* 



6018 
3433 



6228* 
3622 



3359* 
4509* 
5755* 



6717 
3732 



3526* 
4787* 
6302 



6726 
3785 



3655* 
4942* 
6305 



3807* 

4955 



3965* 
5084* 



4019* 
5093 



SEO 0152 
4806* 



4085* 
5318* 



S096# 6096 

1862* 1876 2028 

6640 6878 6686 



2138 


2152 


2157 


6187 


6431 


6567 


6692 


6696 


S699 


7009 


7046* 


7233 



6364* 6456* 
1842* 
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TSTEND 


020626 


TSTRWS 


021436 


TSTSIN 


021572 


TST.SI= 


1 04421 


TST1 


004706 


TST10 


005742 


TST1 1 


006030 


TST12 


0061 10 


TST13 


006252 


TST14 


006416 


TST15 


C06510 


TST16 


006746 


T5T17 


007174 


TST2 


005040 


TST20 


007504 


TST21 


007702 


TST22 


010154 


TST23 


010524 


TST24 


011004 


TST25 


011414 


TST26 


01 1722 


TST27 


012242 


TST3 


005236 


TST30 


012530 


TST31 


012764 


TST32 


013170 


TST33 


013436 


TST34 


013720 


TST35 


014176 


TST36 


014330 


TST37 


014654 


TST4 


005350 


TST40 


015070 


TST41 


015274 


TST42 


015456 


TST43 


015564 


TST44 


015740 


TST45 


016076 


TST46 


016304 


TST47 


016456 


TST5 


005436 


TST50 


016634 


TST51 


016762 


TST52 


017134 


TST53 


017330 


TST54 


017522 


TST55 


017760 


TST56 


020004 


TST57 


020054 


TST6 


005454 


TST7 


005522 


TYERM 


021026 


TYPDS = 


104405 


TYPE a 


104401 



6028 


60550 




2750 


5128 


5207 5236 


64250 


7224 




2666 


2732 


2786 2905 


4244 


4318 


4407 4499 


5458 


5523 


5744 7224 


21 10 


21920 




2481 


2503 


2508 2515 


2554 


25650 




2579 


25970 




2642 


26550 




2705 


27210 




27750 






2866 


2893# 




2970 


29950 




22590 






3100 


31190 




3219* 






3300 


33280 




3463 


34970 




36140 






3733 


3749 


37770 


3867 


38940 




39980 






23090 






4001 


4100 


41190 


4215 


42330 




4274 


4294 


43070 


4376 


43960 




4470 


44880 




4541 


4559 


4584 4595 


46600 






4758 


47680 




2341 


23560 




4830 


48460 




4901 


49260 




50030 






50690 






513B0 






5163 


52190 




5291 


53040 




53780 






2381 


23930 




54470 






5489 


55120 




55780 






56470 






5659 


5717 


57420 


57970 






58140 






58450 






2406 


2415/ 




2419 


24450 




2055 


2086 


61^80 


6085 


72020 




1872 


1924 


1936 1945 



3006 
4606 



3138 
4779 



3231 
4857 



3355 
4937 



3518 
5014 



3648 
5080 



3802 
5149 



3916 
5239 



4130 
5390 
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TYPOC = 


104402 


TYPON = 


104404 


TYPOS = 


104403 


T56 


020140 


T56FLG 


0014,34 


WAT I ME 


021742 


WATINT 


021706 


WAT . IN= 


104420 


SAUTOB 


001 1 34 


S3DADR 


001122 


$BDDAT 


001126 


SCHARC 


023304 


SCKSWR 


023762 


SCMTAG 


0C1100 


$CM1 = 


000012 


$CM2 = 


000024 


$CM3 = 


000012 


SCNTLG 


024647 


$CNTLU 


024642 


SCRLF 


001213 


$DBLK 


023524 


$DOAGN 


020750 


SDTBL 


023514 


$ENDAD 


020740 


SENDCT 


020706 


SENDMG 


020757 


$ENULL 


020754 


SEOP 


020652 


SEOPCT 


020700 


SERFLG 


001103 


SERMAX 


0011 15 


SERROR 


022412 


SERRPC 


0011 16 


5ERRTB 


001442 


SERRTY 


022734 


SERTTL 


0011 12 


SESCAP 


001210 


SFILLC 


001 156 


$FILLS 


001155 


SGDADR 


001120 


SGDDAT 


001124 


SGET42 


020730 


SGTSWR 


024032 


$HD 


000000 


SICNT 


001104 


SILLUP 


025142 


S1NTAG 


001135 


SITEMB 


0011 14 


$LF 


001214 


$LPADR 


001106 


SLPERR 


001110 



2145 


2288 


2299 


2304 


6083 


6086 


6149 


6433 


6569 


6724 


6728 


6742 


6759 


6761 


6764 


6766 


6770 


6777 


7021 


7024 


7037 


7048 


7067 


7120 


7126 


7131 


7135 


7150 


71980 


7261 














2071 


2125 


2150 


6154 


6439 


6577 


6584 


6727 


6750 


72010 


















1930 


1942 


2293 


72000 












58620 


6058 
















1 1790 


2096* 


5865* 


6059* 


6707 










2099 


2174 


65000 














64840 


7222 
















4619 


4633 


4682 


4703 


4794 


5538 


72220 






10530 


1880* 


7017 


7166 












10480 


















10500 


















6818* 


6828* 


6835 


6844* 


68490 










70090 


7206 
















10360 


1830 


1831 


1839 


1845 


1846 








10680 


10690 


10700 


10710 


10720 


10730 


10740 


10750 


10760 


10680 


10690 


10700 


10710 


10720 


10730 


10740 


10750 


10760 


10660 


1068 
















7020 


71610 
















7037 


7135 


71600 














10810 


2067 


2141 


2305 


6689 


6742 


6761 


6766 


6770 


7160 


















6877 


691 1 


69190 














6079 


6088 


60940 














6880 


69150 
















1025 


60900 
















60810 


















6083 


60980 
















6086 


6097» 
















2100 


2267 


5864 


60710 


6713 










60780 


6082 
















10390 


6600 


6629 


6631 


6637* 


6658 


6673* 






10450 


1847* 


6631 


6653* 


6658 










1839 


66720 
















10460 


6683* 


6684* 


6685 


6748 


7814 


7816 


7819 


7822 


11960 


6756 
















6688 


67410 
















10430 


2264* 


5826* 


6676* 


6680 










10790 


1846* 


6652* 


6702 


6704 










10640 


6821 


6852 














10630 


6852 
















10470 


















10490 


















60870 


















70210 


7204 
















871 


















10400 


6644* 


6645 


6647* 


6657 










7231 


7247 


72660 














10540 


7049 


7166 














10440 


6685* 


6745 














10820 


8852 


7150 


7160 












10410 


1848* 


2155 


6635* 


6650* 


6655 


6657 


6698 




10420 


1849* 


3126* 


3329* 


3499* 


3616* 


3779* 


3903* 


4859* 



6571 6579 6689 6710 
6816 6911 6981 7020 
7140 7141 7143 7146 



10770 10780 
10770 10780 



6817 6852 7048 7140 



7824 7827 



5748* 6635 
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SEO 01 BS 







6651* 


6657 


6701 






















SMAIL = 


****** u 


1866 


1876 


6650 


6805 




















SMNEW 


024665 


7024 


71640 
























SMSWR 


024654 


7021 


71620 
























SMXCNT 


022410 


6648 


66570 
























SNULL 

$NWTST- 


001154 
000001 


10620 
21780 
25620 


6823 
2180 
25880 


6852 

22530 

2590 


2255 
26480 


2308# 
2650 


23530 
27110 


23900 
2713 


24100 
27600 


2412 
2762 


24280 
2872# 


2430 
2874 


25250 
2979$ 


2527 
2981 






31 Q5# 


3107 


32000 


3202 


33090 


3311 


34700 


3472 


35950 


3597 


37540 


3756 


3888$ 






3888 


399Q0 


3992 


411 10 


4113 


42220 


4224 


43010 


4303 


43870 


4389 


44750 


4477 






45870 


4589 


46510 


4653 


47620 


4764 


48360 


4838 


49180 


4920 


4995$ 


4997 


50800 






5062 


5132* 


5134 


52120 


5214 


52970 


5299 


53690 


5371 


54350 


5*, 37 


55030 


5505 






55690 


5571 


56370 


5639 


5732$ 


5734 


57S1# 


5793 


5806$ 


5808 


SS290 


S831 




$OCNT 


023756 


6953* 


6982* 


69950 






















SOMODE 


023760 


6948* 


6952* 


6957 


6960* 


6971* 


69970 
















$OVER 


022374 


6612 


6628 


6636 


6646 


66540 


















$PASS 


001100 


10370 


6075* 


6076* 


6084 


6097 


6642 


6658 














$POWER 


025150 


7262 


72690 
























SPWRAD 


025136 


7264$ 


























$PWRDN 


024776 


1843 


7231$ 


7259 






















$PWRMG 


025132 


72620 


























$PWRUP 


025050 


7241 


72470 
























$QUES 


001212 


10800 


S852 


7067 


7143 


7160 


















$RDCHR 


024244 


70800 


7207 
























$RDDEC= 


****** u 


7209 


























SRDL1N 


024364 


71080 


7208 
























$RDOCT= 


****** u 


7209 


























SRDSZ = 


000022 


71 01 # 


























SREGAD 

$REGO 


001160 
001162 


1 0660 
1 0680 


221 1* 


2324* 


2345* 


2377* 


2422* 


2500* 


2505* 


2510* 


2517* 


2556* 


2576* 


2643* 


2706* 


2857* 


2867* 


2953* 


2964* 


2971* 


3055* 


3066* 


3086* 


3093* 


3185* 


3274* 


3285* 






3286* 


3301 * 


3389* 


3417* 


3448* 


3464* 


3714* 


3715* 


3842* 


3856* 


3953* 


3959* 


3970* 






4034* 


4080* 


4101* 


4197* 


4216* 


4284* 


4285* 


4346* 


4352* 


4360* 


4367* 


4378* 


4450* 






4458* 


4464* 


4471* 


4536* 


4547* 


4566* 


4621* 


4689* 


4700* 


4722* 


4732* 


4752* 


4759* 






4799* 


481 5* 


4831* 


4884* 


4910* 


5292* 


5338* 


5479* 


5490* 


5555* 


5616* 


5628* 


5721* 






5771* 


5961* 


5968* 


6000* 


6019* 


6133* 


6305* 


6331* 


6342* 


6366* 


7814 


7816 


7819 


SREG1 


001 1 64 


7824 
1 0690 


7827 
251 1* 


2518* 


2557* 


2644* 


2707* 


2858* 


2868* 


2954* 


2965* 


2972* 


3056* 


30S7* 




3087* 


3094* 


3101* 


3102* 


3186* 


3275* 


3287* 


3302* 


3390* 


3418* 


3449* 


3465* 


3712* 






3843* 


3857* 


3952* 


3960* 


3971* 


4035* 


4081* 


4102* 


4198* 


4217* 


4288* 


4353* 


4361 * 






4368* 


4379* 


4451 * 


4459* 


4465* 


4472* 


4537* 


4548* 


4562* 


4735* 


4816* 


4832* 


4885* 






4911* 


5293* 


5339* 


5480* 


5491* 


5556* 


5617* 


5629* 


5719* 


5772* 


6132* 


6306* 


6332* 






6343* 


7816 


7819 


7824 


7827 


















5REG10 


001202 


10760 


2833* 


2929* 


3031* 


3158* 


3248* 


3369* 


3537* 


3668* 


3696* 


3699* 


3818* 


4178* 






4264* 


4522* 


5692* 


5708* 


6192 


6196 


6261* 


6264* 


8287* 


6290* 








SREG11 

SREG2 


001204 
001 1 66 


10770 

10700 


2966* 


3068* 


3288* 


3391* 


3419* 


3713* 


3844* 


3972* 


4036* 


4103* 


4288* 


4380* 




4549* 


4563* 


4955* 


4964* 


5029* 


5093* 


5101* 


5171* 


5252* 


5332* 


5417* 


8722* 


6131* 






781 9 


7824 


7827 






















SREG3 


001170 


10710 


3548* 


3682* 


3830* 


5723* 


6130* 


6181 


6560* 


6562* 


6565* 


7819 


7827 




$REG4 


001172 


10720 


7827 
























SPEG5 


C01 174 


10730 


7827 
























$REG6 


001 176 


1074# 


7827 
























SREG7 


001200 


10750 


6185 


7827 






















SRTNAD 


020752 


60960 


























$R2A a 


****** u 


7209 
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SEO 0156 



SSAVRE* 


****** u 


7209 


























SSAVR6 


02514S 


7240* 


7248 


7249* 


7250* 


72680 


















SSCQPE 


022140 


1837 


66090 
























S5ETUP* 


000117 


18140 
7004 


1836 
7166 


1837 


1839 


1841 


1843 


1845 


1846 


1848 


1872 


1S73 


6073 


6610 


SSTUP e 


177777 


18140 


























SSVLAD 


022346 


6620 


66490 
























SSVPC m 


000204 


10230 


1028 
























SSWR e 


165400 


8520 


871 


877 


878 


879 


880 


881 


882 


883 


884 


1078 


1079 


1080 






1845 


1846 


1848 


1849 


2193 


2260 


2310 


2357 


2394 


2416 


2446 


2531 


2556 






2598 


2656 


2722 


2776 


2894 


2996 


3120 


3220 


3329 


3498 


361S 


3778 


3895 






3999 


4120 


4234 


4308 


4397 


4489 


4596 


4661 


4769 


4847 


4927 


5004 


5070 






5139 


5220 


5305 


5379 


S44S 


5513 


5579 


5648 


5743 


5798 


5815 


5846 


6068 






6074 


6089 


6095 


6097 


6601 


6602 


6603 


6604 


660S 


6611 


6623 


S625 


6626 






6629 


6630 


6631 


6638 


6639 


6640 


6651 


6654 


6657 


7265 








$SWRMK=3 


000000 


884 


885 


6605 


6606 


6627 


















$ TIMES 


001206 


10780 
5846* 


1845* 
6074* 


2260* 
6638* 


3498* 
6645 


3615* 

6648* 


3778* 
6657 


3895* 


3999* 


4661* 


5648* 


5743* 


5798* 


5815* 


STKB 


001146 


10590 


7002 


7013 


7030 


7084 


7090 
















$TKS 


001144 


10580 


5698 


5699* 


5715 


5718 


7002 


7011 


7027 


7051* 


7082 


7088 






$TN 


000060 


8520 


871 


2178 


21930 


2253 


22600 


2306 


23100 


2341 


2353 


23570 


2381 


2390 






23940 


2406 


2410 


24160 


2419 


2428 


24460 


2481 


2503 


2508 


2515 


2525 


25310 






2554 


2562 


25660 


2579 


2588 


25980 


2642 


2548 


26560 


2705 


2711 


27220 


2760 






27760 


2866 


2872 


28940 


2970 


2979 


29960 


3100 


3105 


31200 


3200 


32200 


3300 






3309 


33290 


3463 


3470 


34980 


3595 


36150 


3733 


3749 


3754 


37780 


3867 


3886 






38950 


3990 


39990 


4001 


4100 


4111 


41200 


4215 


4222 


42340 


4274 


4294 


4301 






43080 


4376 


4387 


43970 


4470 


4475 


44890 


4541 


4559 


4584 


4587 


45960 


4651 






46610 


4758 


4762 


47690 


4830 


4836 


48470 


4901 


4918 


49270 


4995 


50040 


5060 






50700 


5132 


51390 


S163 


5212 


52200 


5291 


5297 


53050 


5369 


53790 


543S 


54480 






5489 


5503 


55130 


5569 


55790 


5637 


56480 


5659 


5717 


5732 


57430 


8791 


57980 






5806 


58150 


5829 


58460 




















$TPB 


001 152 


10610 


6841* 


6852 






















STPFLG 


001157 


10650 


6799 


6852 






















$TPS 


0011S0 


10600 


6039 


6852 






















STRAP 


02467S 


1841 


71750 
























STRAPS 


024720 


71860 


7197 
























$TRP a 


000022 


71900 


71900 


72000 


72010 


7202$ 


72030 


7204 


72050 


7206 


72070 


72080 


72090 


7210 






72110 


7212 


72 1 30 


7214 


721S0 


7216 


72170 


7218 


72100 


7220 


?aai0 


7222 


7223$ 






7224 


72250 
























STRPAD 


024732 


7180 


71970 
























STSTNM 


C01102 


10380 


2261* 


6073* 


8600 


8627 


6649* 


6SS4 


6658 


667S 










STTYIN 


024620 


7110 


71 1 1 


7123 


7141 


7155 


71590 
















STYPBN« 


****** u 


7203 


























STYPDS 


023310 


68650 


7202 
























STYPE 


023070 


67990 


7190 


7198 






















STYPEC 


023240 


6820 


6827 


6834 


68390 


6840 


7053 
















STYPEX 


023306 


6845 


6847 


68500 






















STYPOC 


023560 


69510 


7199 
























$TYPON 


023574 


6950 


69530 


7201 






















STYPOS 


023534 


69460 


7200 
























SXTSTR 


022152 


6814# 


























$$GET4= 


000000 


60890 


























SOFILL 


023757 


6947* 


6951* 


6961 


69960 




















540CAT* 


****** y 


6611 


























= 


034342 


10100 


10140 


1023 


10240 


10260 


10280 


10350 


1083 


10870 


1824 


1834 


1848 


1849 






18840 


19270 


19390 


19480 


19520 


19910 


21230 


21480 


2266 


2520 


3193 


3440 


3589 
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4617 
6658 
7997$ 



4879 
6691 
80000 



5887 
6697 



58S9 
67SO0 



5896 
6852 



5994 
69190 



6097 
7002 



6101 
71590 



61520 
7160 



€403 
7166 



64360 
7243 



SEO 01 §7 



65820 
7267 



MO-1 1-CZRKKF, RK11 BASIC 


LOGIC 


TEST 2 


MACY11 


30A(1052) 


21-FEB 


-78 08 


:58 PAGE 


161 












CZRKKF. 


P11 21 


-FEB-78 


08:51 




CROSS REFERENCE 


TABLE — 


MACRO 


NAMES 












SEO 0158 


COMMEN 


10 


1 0080 




























ENDCOM 


10 


1 0080 




























ERROR 


9020 


2212 


2223 


2325 


2336 


2346 


2372 


2378 


2383 


2408 


2423 


2501 


2506 


2512 


2519 




2558 


2577 


2581 


2614 


2627 


2633 


2638 


2645 


2674 


2684 


2688 


2697 


2702 


2708 


2735 




2747 


2751 


2824 


2836 


2843 


2849 


2853 


2859 


2863 


2869 


2919 


2932 


2938 


2944 


2949 




2955 


2959 


2967 


2973 


3021 


3034 


3041 


3047 


3051 


3057 


3061 


3069 


3088 


3095 


3103 




3162 


3168 


3177 


3187 


3251 


3258 


3267 


3276 


3280 


3289 


3297 


3303 


3372 


3379 


3392 




3397 


3421 


3450 


3466 


3540 


3549 


3554 


3561 


3672 


3684 


3689 


3702 


3717 


3728 


3821 




3831 


3835 


3845 


3858 


3927 


3937 


3942 


3946 


3954 


3961 


3973 


4037 


4069 


4075 


4082 




4104 


4168 


4181 


4189 


4199 


4204 


4208 


4212 


4218 


4267 


4289 


4333 


4337 


4342 


4347 




4354 


4362 


4369 


4381 


4426 


4430 


4436 


4441 


4452 


4460 


4466 


4473 


4525 


4529 


4538 




4552 


4568 


4622 


4640 


4675 


4690 


4701 


4710 


4723 


4736 


4753 


4760 


41; JO 


4810 


4817 




4821 


4833 


4886 


4912 


4957 


4965 


4970 


4985 


4989 


4992 


5031 


5038 


5053 


5057 


5094 




5102 


5107 


5122 


5126 


5130 


5172 


5187 


5201 


5205 


5209 


5238 


52-:5 


5253 


5258 


5261 




5273 


5288 


5294 


5333 


5340 


5347 


5362 


5366 


5412 


5418 


5423 


5428 


5432 


5472 


5481 




5492 


5542 


5557 


5586 


5608 


5618 


5630 


5694 


5710 


5724 


5753 


5761 


5773 


5802 


5819 




5926 


5962 


5969 


6003 


6021 


7274 


7292 


















ESCAPE 


10 


10080 




























GETPRI 


10 


10080 




























GETSWR 


10 


3520 


10080 


18730 
























MESAGE 


21770 


2180 


22530 


2255 


24100 


2412 


24270 


2430 


25240 


2527 


25880 


2590 


26480 


2650 


27110 




2713 


27600 


2762 


28720 


2874 


29780 


2981 


31050 


3107 


32000 


3202 


33080 


3311 


34700 


3472 




35940 


3597 


37530 


3756 


38850 


3888 


39890 


3992 


41100 


4113 


42210 


4224 


43000 


4303 


43870 




4389 


44750 


4477 


45870 


4589 


46510 


4653 


47620 


4764 


48360 


4838 


49180 


4920 


49950 


4997 




50600 


5062 


51320 


5134 


52120 


5214 


52970 


5299 


53690 


5371 


54350 


5437 


55020 


5505 


55680 




5571 


5637# 


5639 


57310 


5734 


57910 


5793 


58060 


5808 


58280 


5831 










MORETA 


10290 


1084 




























MULT 


10 


1 0080 




























NEWTST 


10 


10080 


2178 


2253 


2306 


2353 


2390 


2410 


2428 


2525 


2562 


2588 


2648 


2711 


2760 




2872 


2979 


3105 


3200 


3309 


3470 


3595 


3754 


3886 


3990 


41 11 


4222 


4301 


4387 


4475 




4587 


4651 


4762 


4836 


4918 


4995 


5060 


5132 


5212 


5297 


5369 


5435 


5503 


5569 


5637 




5732 


5791 


5806 


5829 
























POP 


10 


10080 


6906 


7252 


7253 






















PRI0R7 


11980 


4608 


4645 


4743 


4824 


4897 


5561 


5662 


5399 














PUSH 


10 


1 0080 


6865 


7233 


7239 






















REPORT 


10 


10080 




























SCOPE 


903* 


2192 


2259 


2309 


2356 


2393 


2415 


2445 


2530 


2565 


2597 


2655 


2721 


2775 


2893 




2995 


3119 


3219 


3328 


3497 


3614 


3777 


3894 


3998 


4119 


4233 


4307 


4396 


4488 


4595 




4660 


4768 


4846 


4926 


5003 


5069 


5138 


5219 


5304 


5378 


5447 


5512 


5578 


5647 


5742 




5797 


5814 


5845 


6072 
























SETPRI 


10 


10080 




























SETTRA 


71900 
7222 


7199 
7224 


7200 


7201 


7202 


7204 


7206 


7207 


7208 


7210 


7212 


7214 


7216 


7218 


7220 


SETUP 


10 


10080 


1828 


























SKIP 


10 


10080 


2341 


2381 


2406 


2419 


2481 


2503 


2508 


2515 


2554 


2579 


2642 


2705 


2866 




2970 


3100 


3300 


3463 


3733 


3749 


3867 


4001 


4100 


4215 


4274 


4294 


4376 


4470 


4541 




4559 


4584 


4758 


4830 


4901 


5163 


5291 


5489 


5659 


5717 












SLASH 


10 


1 0080 




























SPACE 


10080 






























STARS 


10 


10080 


1021 


1031 


1083 


2178 


2191 


2253 


2258 


2306 


2308 


2353 


2355 


2390 


2392 




2410 


2414 


2428 


2444 


2525 


2529 


2562 


2564 


2588 


2596 


2648 


2654 


2711 


2720 


2760 




2774 


2872 


2892 


2979 


2994 


3105 


3118 


3200 


3218 


3309 


3327 


3470 


3496 


3595 


3613 




3754 


3776 


3886 


3893 


3990 


3997 


4111 


41 18 


4222 


4232 


4301 


4306 


4387 


4395 


4475 




4487 


4587 


4594 


4651 


4659 


4762 


4767 


4836 


4845 


4918 


4925 


4995 


5002 


5060 


5068 




5132 


5137 


5212 


5218 


5297 


5303 


5369 


5377 


5435 


5446 


5503 


5511 


5569 


5577 


5637 




5646 


5732 


5741 


5791 


5796 


5806 


5813 


5829 


5844 


6064 


6597 


6736 


6784 


6855 


6923 



MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2 
C2RKKF.P11 21-FES-78 08:51 
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CROSS REFERENCE TABLE — MACRO NAMES 



SEO 01 Bf 



S.VRSU 

TRMTRP 

TYPBIN 

TYPDEC 

TYPNAM 

TYPNUM 

TYPOCS 

TYPOCT 

TYPTXT 

SSCMRE 

SSCMTM 

SSESCA 

SSNEWT 



SSSET 
$$SKIP 



7001 

?190# 



1# 
1# 
1029# 
1029# 
1# 
1* 
2872 
4587 
5732 
7190# 
7222 

1# 
2970 
4559 



EOUAT 

HEADE 

KT11 

SETUP 

SWRHI 

SWRLO 

SACT1 

SAPTS 

SAPTH 

$APTY 

SASTA 

SCATC 

$CMTA 

JDB20 

$DB20 

$DIV 

$EOP 

SERRO 

$ERRT 

$MULT 

SPOWE 

SRAND 

SRDDE 

SRDOC 

JREAD 

$R2A2 

SSAVE 

SS52D 

S5B20 

SSCOP 

$SI2E 

SSUPR 

STRAP 

STYPB 



7004 
1 008# 

G08# 
008# 
852# 
008# 
008# 
008# 
008# 
068 

0080 
Q08# 
2979 
4651 
5791 
7199 
7224 
1008$ 
3100 
4584 
852# 
852# 

8520 
852# 

885# 
852# 



852# 
852# 



7072 

18500 



6084 

10080 



6748 

1923 
1069 



2178 

3105 
4762 
5806 
7200 

2341 

3300 

4758 

890 

861 

1814 
873 



1008 
102© 



852# 6062 

8S2# 8734 

852* 7227 
85 2 # 

852# 6999 

852# 6595 

852# 7167 



6772 7022 
1936 1945 
1070 1071 



2253 
3200 
4836 
5829 
7201 

2381 

3463 
4830 



2306 
3309 
4918 



2406 
3733 
4901 



1949 
1072 



2353 
3470 
4995 



2419 
3749 
5163 



1964 
1073 



2390 
3595 
5060 



2481 
3867 
5291 



1987 
1074 



2410 
3754 
5132 

7207 

2503 
4001 
5489 



2120 
1075 



2428 
3886 
5212 



2508 
4100 
5659 



2145 
1076 



2525 
3990 
5297 



2515 
4215 
5717 



2299 
1077 



2562 
4111 
5369 



2S54 
4274 



2588 
4222 

5435 



2579 
4294 



2648 

4301 
5503 



2642 
437® 



2711 
4387 

5569 



2705 

4470 



2780 
4475 
5637 



288® 

4541 



M0-11-CZRKKF 
C2RKKF.P1 1 

STYPD 
STYPE 
STYPD 
S40CA 
1170 



RK11 BASIC LOGIC TEST 2 
21-FEB-78 08:51 

# 852# 6853 
H 852# 6782 

ft 852# 6921 



MACY11 30A(10S2) 21-FEB-78 08:58 PAGE 163 
CROSS REFERENCE TABLE — MACRO NAMES 



SEO 0160 



ABS. 034342 



ERRORS DETECTED: 

CZRKKF,CZRKKF.L5T/CRF/S0L=CZRKKF.SML f CZRKKF.P11 
RUN-TIME: 22 31 1 SECONDS 
RUN-TIME RATIO: 392/55=7.0 
CORE USED: 34K (67 PAGES) 



